Ich bedanke mich schon im Voraus für eure Hilfe!
Ich benutze folgenden Code um dann per Schaltfläche einen bestimmten Bereich sortieren zu lassen.
Der Code lautet:
Sub Gesamt1()
Calculate
Range("b3:x21").Select
Selection.Sort Key1:=Range("g4"), Order1:=xlDescending, Key2:= _
Range("j4"), Order2:=xlDescending, Key3:=Range("h4"), Order3 _
:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub
Jetzt möchte ich ihn einfach noch um einen weiteren Key, bzw. um eine weitere Order erweitern, doch dann bekomme ich jedes mal eine Fehlermeldung: Anwendungs- oder objektdefinierter Fehler!
Wo liegt mein Problem, oder kann ich nur 3 Befehle ausführen!
Mit den besten Grüßen
Frank H.