hab folgenden code in einer anwendung unter excel2003 tadellos laufen.
nun funktioniert dieser allerdings auf excel2000 nicht mehr.
was ist zu ändern?
Sub Sortiert_BeiKlick()
ActiveSheet.Unprotect
Range("B11:u2000").Select
Selection.Sort Key1:=Range("B12"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect
Range("B12").Select
End Sub
grüße a*