kann mir jemand sagen was dieser Teil bedeutet:
Selection.Sort Key1:=ActiveSheet.Range("A2")
Private Sub Sortieren_Click()
ActiveSheet.Range("A5:D10").Select
Selection.Sort Key1:=ActiveSheet.Range("A2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub