Blätter einer Mappe sortieren

Computer: Software & Programmierung Office Software
1

Hallo

Kann man die einzelnen Blätter einer Mappe sortieren (alphabetisch)? Vielen Dank für Hilfe

Tschau Chris

2

Hallo Chris,

das wird wohl nur händisch gehen, mit drag & drop. Btw: Wozu wäre so eine Funktion gut?

Gruß Ralf

3

Hallo Chris,

das wird wohl nur händisch gehen, mit drag & drop.

Da kann ich (fast) nur zustimmen. Mit VBA läßt sich das auch machen.

> Btw: Wozu

wäre so eine Funktion gut?

Deine Blätter sind falsch sortiert und Du willst Sie umsortieren. Z. B. Jedes Blatt ist ein Kassenbuch für ein Geschäftsjahr und Du hast die Eingabe nach Jahrgang an verschiedene Datatypisten veteilt, die Ihre Ergebnisse nicht in der chronologischen Reihenfolge abliefern. (Zugegeben nicht sehr realistisch, aber ein Ansatzpunkt um weiterzuspinnen).

Ciao

Uwe

4

Sortieren? Kein Problem! Mit VBA!
Moin!

Ich hab Dir ein kleines Makro gestrickt, welches die Blätter nach Namen sortiert:

Public Sub SortSheets()
 Dim Anz As Integer
 Dim i As Integer
 Dim j As Integer
 Anz = Sheets.Count
 For i = 1 To Anz
 For j = 1 To Anz - 1
 If Sheets(j + 1).Name 

Und falls Du die Blätter wieder "mischen" willst, benutzt Du einfach die "Mischautomatik" :wink:


    Public Sub RandomSheets()
     Dim i As Integer
     Dim z1 As Integer
     Dim z2 As Integer
     For i = 1 To Sheets.Count
     z1 = Int(Rnd() \* (Sheets.Count - 1)) + 1
     z2 = Int(Rnd() \* (Sheets.Count - 1)) + 1
     Sheets(z1).Move after:=Sheets(z2 + 1)
     Next i
    End Sub



Viel Spaß damit

Gruß
_(Woly)_