sollte eine kleine Hilfestellung haben:
In meiner Tabelle A:G sind die Überschriften in Zeile 12, die Daten beginnen ab Zeile 13.
Mit dem Code kann ich nach der Spalte sortieren die ich gerade angeklickt habe (im Netz gefunden).
Ich wollte haben, dass wenn ich in die Zellen mit den Überschriften klicke die Tabelle aufsteigend sortiert wird, und wenn ich in die Daten klicke absteigend sortiert wird.
Danke im voraus
Grüße von Maya Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim LzB As Long Dim LSp1 As Long Dim r r = ActiveCell.Address LzB = Application.Max(13, Cells(Rows.Count, 2).End(xlUp).Row) LSp1 = 7 Range(Cells(12, 1), Cells(LzB, LSp1)).Sort Key1:=Range(r), Order1:=xlAscending, Header:= _ xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub