gibt es eine elegante Möglichkeit Excel-Sheets einer Arbeitsmappe via VB alphabetisch zu ordnen?
Oder hat jemand eine Idee wie ich mittels "Sheets.Name" hier weiter komme?
Danke im Voraus
Gruß Frank
Sub SheetsAlphaSort()
Dim i As Integer, j As Integer, k As Integer
k = ActiveWorkbook.Worksheets.Count
For i = 1 To k
For j = i To k
If Worksheets(j).Name < Worksheets(i).Name Then
Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
Next i
End Sub
Gruss Werner
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen