bei dieser Formel wird die Überschrift auch sortiert.
Wie kann die erste Spalte unberührt bleiben?
Bzw. habe ich vor noch eine Zweite Zeile darüber einzufügen.
Bitte Info. DANKE.
Private Sub Workbook_BeforeSave _ (ByVal SaveAsUI As Boolean, Cancel As Boolean) ActiveSheet.UsedRange.Select Selection.Sort Key1:=Range("B2"), _ Order1:=xlAscending, Header:=x2Guess, _ OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom End Sub