Bei meinem Code sortiert er die Überschriften mit - das soll er nicht.
Vielleicht findet ja jemand den Fehler.
Dim ersteleerezeile As Long
ersteleerezeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
Sheets("tabelle1").Activate
ActiveSheet.UsedRange.Select
Selection.Sort key1:=Range("A2:A" & ersteleerezeile), order1:=xlAscending, Header:=xlGuess, ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom