ich habe ein kleines Problem. Ich möchte in meiner Mappe die Tabellenblätter nach Zahlen sortieren, aber ich finde nur eine alfabetische Sortiereung. Kann mir einer weiterhelfen.
Gruß
Mario
Sub BlätterAufsteigendSortieren()
Dim intI As Integer, intJ As Integer
For intI = 1 To Sheets.Count
For intJ = 1 To Sheets.Count - 1
If UCase(Sheets(intJ).Name) > UCase(Sheets(intJ + 1).Name) Then
Sheets(intJ).Move after:=Sheets(intJ + 1)
End If
Next
Next
End Sub
Sub Liste_Sheets()
Dim i As Integer
Worksheets.Add before:=Sheets(1)
For i = 1 To Sheets.Count
Sheets(1).Cells(i, 1) = Sheets(i).Name
Next i
End Sub
Sub Sortieren_nach_Liste()
Dim i As Integer, wsh As Worksheet, B1 As String, B2 As String
Set wsh = Sheets(1)
For i = 2 To Sheets.Count
B1 = wsh.Cells(i - 1, 1).Value
B2 = wsh.Cells(i, 1).Value
Sheets(B2).Move after:=Sheets(B1)
Next i
End Sub