In diesem Artikel lernen wir das Sortieren von Blättern in aufsteigender Reihenfolge durch VBA in Microsoft Excel 2010.
Wenn Sie an mehreren Blättern arbeiten, stellen Sie fest, dass die Blätter nicht richtig angeordnet sind. Sie möchten schnell ein Makro erstellen, das das Blatt automatisch in aufsteigender Reihenfolge sortiert, wenn das Makro ausgeführt wird.
Um die Blätter in aufsteigender Reihenfolge zu sortieren, gehen Sie wie folgt vor:
- Drücken Sie Alt+F11, um den VB-Editor-Bildschirm zu starten
- Wählen Sie im Menü Einfügen die Option Modul aus.
- Geben Sie im Modul die Codezeilen wie folgt ein:
UntersortierungSheetsInAscending()
Dim i As Integer, n As Integer, SheetsCounter As Integer
Wenn ActiveWorkbook nichts ist, dann beenden Sie Sub
Wenn ActiveWorkbook.ProtectStructure Then
MsgBox ActiveWorkbook.Name & " ist geschützt", vbCritical, "Blätter sortieren"
Abo beenden
Ende Wenn
If MsgBox("Sort Sheets?", vbQuestion + vbYesNo) vbYes Then Exit Sub
Application.EnableCancelKey = xlDisabled
SheetsCounter = Sheets.Count
Für i = 2 To SheetsCounter
Für n = 1 To SheetsCounter
Wenn Sheets(n).Name > Sheets(i).Name Then
Sheets(i).Vorher verschieben:=Sheets(n)
Ende Wenn
Nächste Nr
Als nächstes
End Sub
- Führen Sie das Makro aus dem Modul aus, indem Sie F5 drücken.
Alternativ können Sie Alt+F11 drücken und zu Excel zurückkehren, das Makro einem beliebigen Excel-Objekt als Schaltfläche oder Symbol zuweisen oder Alt+F8 drücken, um das Makro auszuwählen, und dann auf Ausführen klicken.
Sie werden feststellen, dass die Blätter in alphanumerischer Reihenfolge angeordnet sind.