TOP

Blätter in einem Buch sortieren

Beschreibung

Wenn sich die Anzahl der Tabs in Ihrem Buch auf mehrere Dutzend beläuft, besteht früher oder später der Wunsch, sie umzusetzen Sortieren von Blättern in einem Buch , indem Sie sie in alphabetischer Reihenfolge anordnen. Mit den Standardtools von Excel ist dies nicht möglich. Schreiben wir also ein einfaches Makro, das dies erledigt.


VBA-Code für das Makro

Öffnen Sie das Menü Dienst – Makro – Editor Visual Basic (Tools - Macro - Visual Basic Editor) , Modul VBA einfügen (Speisekarte Insert - Module ) und kopieren Sie diesen Text dorthin:

Sub SortSheets()
  'moonexcel.com.ua
  Dim I As Integer, J As Integer

    For I = 1 To Sheets.Count - 1
        For J = I + 1 To Sheets.Count
            If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then
                Sheets(J).Move Before:=Sheets(I)
            End If
        Next J
    Next I
    
    MsgBox " Die Tabs wurden von A bis Z sortiert "
End Sub

Dieses Makro kann nun über das Menü ausgeführt werden Service - Makro - Makros (Tools - Macro - Macros) , und alle Blätter in der aktuellen Arbeitsmappe werden schnell sortiert.

Artikel zum Thema: