Hallo zusammen,
ich habe folgendes Problem:
In meiner Arbeitsmappe wird ein bestehendes Tabellenblatt per Makro kopiert und eingefügt. Dadurch haben alle Tabellenblätter den gleichen Name mit entsprechendem Zähler. Also Test(1), Test(2), Test(3) usw....
Ich möchte dies Tabellenblätter nun nach dem Zähler aufsteigend sortieren. Bis Nummer 9 funktioniert dies auch. Nummer 10 wird dann allerdings nach 1 und vor 2 eingefügt und nicht wie gewünscht nach 9.
Hier das Makro:
Dim Zaehler1 As Integer, Zaehler2 As Integer
Dim Name As String
Name = ActiveSheet.Name
For Zaehler1 = 1 To Worksheets.Count
For Zaehler2 = Zaehler1 To Worksheets.Count
If UCase(Worksheets(Zaehler2).Name) < UCase(Worksheets(Zaehler1).Name) Then
Worksheets(Zaehler2).Move before:=Worksheets(Zaehler1)
End If
Next Zaehler2, Zaehler1
Worksheets(Name).Activate
Was mache ich falsch?
Vielen dank für die Hilfe im voraus.
Gruß
Leif Meyer