das Makro habe ich in der Recherche gefunden. Das mit dem sortiern klapp einwandfrei, nur sollen die beiden ersten Tabellenblätter mit den Namen "Eingabe" und "MA-Auswahl" nicht mit sortiert werden und ganz links stehen bleiben!
Danke für Euere Mühe
Gruß Dieter
Sub Tabellenblätter_sortieren()
AnzahlRegister = Sheets.Count
For i = 1 To AnzahlRegister - 1
X = i
For Zähler = i + 1 To AnzahlRegister
If UCase$(Sheets(Zähler).Name) < UCase$(Sheets(X).Name) Then
X = Zähler
End If
Next Zähler
If X > i Then Sheets(X).Move Sheets(i)
Next i
End Sub