Fehler beim Sortieren mit Button
29.02.2004 18:17:58
jawe
habe in excell eine Tabelle mit der ich ergebnisse über einen Button Sortieren lassen möchte!
auf meinem Rechner Win2000 Sp4, Excel 2003 läuft das wunderbar!
wenn ich diese datei auf einenm Rechner mit win98 und einer älteren excell version ausführe dann geht das nicht!
er bricht ab mit der Fehlermeldung:
Die Unprotect-Methode des Worksheet-Objektes konnte nicht ausgeführt werden!
Hier der Code:
-------------------------------------------------------------------------------
Private Sub Sortieren_Click()
' Makro2 Makro
' Makro am 30.1.2004 von werner aufgezeichnet
' Tastenkombination: Strg+s
Dim bln As Boolean
bln = Tabelle1.ProtectContents
ActiveSheet.Unprotect "r2d2c3po"
Range("B4:S9").Select
Selection.Sort Key1:=Range("S4"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom
ActiveWindow.SmallScroll Down:=9
Range("B13:S41").Select
Selection.Sort Key1:=Range("S13"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom
Range("A1").Select
If bln Then ActiveSheet.Protect "r2d2c3po"
End Sub
--------------------------------------------------------------------------------
Schönen Dank schon mal im voraus
mfg
jawe