Code

Sub TabellenblaetterSortieren()

'Bildschirmupdates deaktivieren
Application.ScreenUpdating = False

'Variablen dimensionieren
Dim Außen As Long
Dim Innen As Long
Dim ws As Worksheet

'Tabellenblatt merken
Set ws = ActiveSheet

'Schleife düe die aktuelle Position
For Außen = 1 To Worksheets.Count

    'Schleife über aktuelles Tabellenblatt nach der aktuellen Position
    For Innen = Außen To Worksheets.Count
    
        'Zeichenketten vergleichen
        If Worksheets(Innen).Name < Worksheets(Außen).Name Then
        
            'Tabellenblatt verschieben
            Worksheets(Innen).Move before:=Worksheets(Außen)
            
        End If
        
    Next Innen
    
Next Außen

'Ursprüngliches Tabellenblatt aktivieren
ws.Activate

'Bildschirmupdates aktivieren
Application.ScreenUpdating = True

'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub