Hallo Daniel,

du gibst folgende Makros ein (evtl. über Makro-Recorder oder von Hand):

Sub ZahlenAufsteigend()
ActiveSheet.Unprotect
Range("A2:B12").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Range("D2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Sub ZahlenAbsteigend()
ActiveSheet.Unprotect
Range("A2:B12").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Key2:=Range("B2") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Range("D2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Sub DatumAufsteigend()
ActiveSheet.Unprotect
Range("A2:B12").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("A2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Range("D2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Danach den Entscheidungen im Auswahlfeld jeweils das entsprechende Makro zuweisen!

Gruß
Peter

Danke erstmal für die schnelle Antwort und die Mühe.
Ich werde das ganze morgen mal testen und auf jeden Fall berichten. Wenn ich noch Fragen habe zum Zuweisen der Makros, dann schreib ich nochmal.
Vielen vielen Dank Peter!!
Gruß Daniel

Ich habe alles soweit probiert. Hab aber leider einige Probleme.
Ich habe als Beispiel eine vereinfachte Version meiner Tabelle dargestellt und weiß jetzt nicht wie ich deinen Code mit meinen Tabellendaten anpassen soll. Vielleicht kannst du mir nochmal den Code überarbeiten?
Tabelle => A6:AF2005
Ich habe auch probiert den Ablauf mit einem Makro aufzunehmen. Er hat mich dann aber immer nach dem Kennwort gefragt, wenn ich das Makro ausgeführt habe und er gerade dabei war den Tabellenschutz aufzuheben. Das sollte auch von alleine gehen.
Des Weiteren weiß ich nicht wie ich die Befehle bzw. das Makro ausführen lassen (Den Entscheidungen im Auswahlfeld das entsprechende Makro zuweisen). Am liebsten wäre es mir, wenn die betroffenen Befehle bzw. das Makro ausgeführt wird, wenn in der Zelle AI3 der Text z.B. "Zahlen absteigend" steht. Das ganze wieder für alle drei Möglichkeiten. Kann man das realisieren?

Viele Grüße Daniel