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