ich habe ein Problem mit Tabellenblättern.
Ich habe 2 tolle Makros die meine Tabellenblätter sortieren:
Sub SortSheetsAufsteigend()
Dim Cnt As Integer, n As Integer, M As Integer
Dim WS As Worksheet
Set WS = ActiveSheet
Cnt = ActiveWorkbook.Worksheets.Count
For M = 1 To Cnt
For n = M To Cnt
If Worksheets(n).Name
Sub SortSheetsAbsteigend()
Dim Cnt As Integer, n As Integer, M As Integer
Dim WS As Worksheet
Set WS = ActiveSheet
Cnt = ActiveWorkbook.Worksheets.Count
For M = 1 To Cnt
For n = M To Cnt
If Worksheets(n).Name > Worksheets(M).Name Then
Worksheets(n).Move before:=Worksheets(M)
End If
Next n
Next M
End Sub
Geht auch immer ganz toll.
Jetzt erzeuge ich aber über Pivotauswertungen und Seiten anzeigen automatisch Tabellen für jeden Kunden.
Meistens von 1 - 300.
Er sortiert jetzt aber falsch 1,10,11...2,20,21....
Wie bekomme ich das hin, dass die Blätter richtig sortiert sind?
Und danach sollen diese Blätter einmal alle gedruckt werden also 1:n
Und am Ende dann gelösch 1:n
Weiß jemand Rat?
Vielen Dank viele Grüße
Jens