habe mal ne Frage bezüglich der Sortierung von Tabellenblättern. Ist es möglich, die Blätter die Bsp: AD.0057.2323 etc. heißen nach dieser Nummer sortieren zu lassen?
Grüße Andi
Sub Blattnamensort_aufsteigend()
'Aufsteigende Sortierung der Tabellen nach dem Tabellennamen
For I = 1 To Worksheets.Count - 1
x = Worksheets(I).Name
For j = I + 1 To Worksheets.Count
If Worksheets(j).Name < x Then
x = Worksheets(j).Name
End If
Next j
Worksheets(x).Move Before:=Worksheets(I)
Next I
End Sub