Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.UsedRange.Sort _
Key1:=Cells(2, Target.Column), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End Sub
________________________________________________________________________________
dieses obige VBA sortiert die ganze Tabelle. Was muß ich eingeben, dass die ersten beiden Zeilen nicht sortiert werden. Oder auch nur bestimmte Spalten sortiert werden.