Tabellenblätter sortieren
Mit unter möchte man die Tabellenblätter einer Arbeitsmappe sortieren.
Mit dem folgenden VBA-Makro sollte das gelingen:
Sub RegisterSort()
nAnzahlTab = Sheets.Count
For i = 1 To nAnzahlTab - 1
n = i
For nCount = i + 1 To nAnzahlTab
If UCase$(Sheets(nCount).Name) < UCase$(Sheets(n).Name) Then
n = nCount
End If
Next nCount
If n > i Then Sheets(n).Move Sheets(i)
Next i
End Sub
