ich hab da ein Problem. Wenn ich diesen Code mit Excel 2003 benutze klappt alles super.Aber der Code wird auch in Excel 97 verwendet und bekomme ich immer eine Fehlermeldung. Könnt ihr mir helfen?
Gruß Nico
Hier der Code !!!
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="123"
Range("AC3:AC43").Sort Key1:=Range("AC3"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AD3:AD46").Sort Key1:=Range("AD3"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AE3:AE181").Sort Key1:=Range("AE3"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
ActiveSheet.Protect Password:="123"
End Sub