Hi Harald,
Hier einer meiner Sortiercodes, hoffe er funktioniert bei dir. Bitte das Wort "kleiner" durch das Zeichen für Kleiner ersetzten:
Dim ws As Worksheet Dim x As Integer, Y As Integer, wsCount As Integer Set ws = ActiveSheet wsCount = ThisWorkbook.Worksheets.Count For x = 1 To wsCount For Y = x To wsCount If Worksheets(Y).Name "kleiner" Worksheets(x).Name Then Worksheets(Y).Move before:=Worksheets(x) End If Next Y Next x x = 1 Set ws = Nothing Ciao, Eleni