Sub Umbenennen_und_sortieren()
   Sheets("Tabelle1").Name = "Testtabelle"
   Anzahl = ActiveWorkbook.Worksheets.Count
   For x = 1 To Anzahl
     For y = x To Anzahl
       If Worksheets(y).Name < Worksheets(x).Name Then _
          Worksheets(y).Move Before:=Worksheets(x)
       End If
      Next y
   Next x
End Sub