Blätter in einem Buch sortieren

Beschreibung

Wenn sich die Anzahl der Tabs in Ihrem Buch auf mehrere Dutzend beläuft, werden Sie früher oder später die Blätter im Buch in alphabetischer Reihenfolge sortieren wollen. 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ü Service - Makro - Editor Visual Basic (Tools - Macro - Visual Basic Editor), fügen Sie das VBA-Modul ein (Menü In sert - Module ) und kopieren Sie es dorthin Dieser Text:

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 jetzt über das Menü Service – Makro – Makros (Tools – Macro – Macros) ausgeführt werden und sortiert schnell alle Arbeitsblätter in der aktuellen Arbeitsmappe.

Artikel zum Thema: