Sortierung absteigend
28.06.2017 09:15:21
Joachim
kann helfen ? Und vielen Dank schonmal.
Private Sub CommandButton1_Click()
Rows("5:" & Format(Range("H3").Value + 6, "0")).Sort Header:=xlYes, MatchCase:=False, _
OrderCustom:=1, Orientation:=xlTopToBottom, _
Key1:=Range("C5"), Order1:=xlAscending, Key2:=Range("L5"), Order2:=xlAscending
Me.Hide: Unload Me
End Sub