Gibt es einen Befehl (am besten mit VBA-Code) um alle Blätter einer Arbeitsmappe alphabetisch aufsteigend zu sortieren?
Office - Word, Excel und Co. 9.755 Themen, 41.626 Beiträge
Uli M martinschneider „Tabellenblätter sortieren“
Versuch's mal so:
Sub TabellenblätterSortieren()
Dim oWb As Workbook
Dim oTmpSheet As Worksheet, oAktSheet As Worksheet
Dim I As Integer
Set oWb = ActiveWorkbook
Set oTmpSheet = oWb.Sheets.Add
With oTmpSheet
For I = 1 To oWb.Sheets.Count
.Cells(I, 1) = oWb.Sheets(I).Name
Next I
.UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For I = .UsedRange.Rows.Count To 1 Step -1
Set oAktSheet = oWb.Sheets("" & .Cells(I, 1) & "")
oAktSheet.Move oWb.Sheets(1)
Next I
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End Sub
