Wie kriege ich es hin, dass die Tabellenblätter aufsteigend sortiert werden. Mit dem untenstehenden Code kann man sortieren, aber der Code funktioniert nicht einwandfrei.
Z.B. bei Tabellenblatt-Nummern 1 101 2 25 30 8 etc.
Ich hätte gerne dass die Sortierung 1 2 8 25 30 101 ergibt.
Für eine Lösung bin ich dankbar.
Gruss
Ernst Dunkel
Sub TabellenSortieren()
Dim i As Integer
Dim j As Integer
For i = 5 To Sheets.Count
For j = 5 To Sheets.Count - 1
If UCase$(Sheets(j).Name) > _
UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move after:=Sheets(j + 1)
End If
Next j
Next i
End Sub