Addin
20.03.2005 13:13:25
winne
Heute hätte ich gern eure Hilfe:
Ich habe folgendes Makro installiert:
Sub procFormelzellenSchuetzen()
Dim rngAktiveZelle As Range
If MsgBox("Möchten Sie alle Formelzellen in diesem " & _
"Blatt schützen? Der Schutz für Zellen mit Zahlen " & _
"wird aufgehoben.", vbQuestion + vbYesNo, _
"Excel Weekly: Formeln schützen") = vbNo Then Exit Sub
On Error GoTo errorHandling
ActiveSheet.Unprotect
For Each rngAktiveZelle In ActiveSheet.UsedRange
If Not rngAktiveZelle.HasFormula And _
Not TypeName(rngAktiveZelle.Value) = "Date" And _
Application.IsNumber(rngAktiveZelle) Then
rngAktiveZelle.Locked = False
rngAktiveZelle.Font.ColorIndex = 5
Else
rngAktiveZelle.Locked = True
rngAktiveZelle.Font.ColorIndex = _
xlColorIndexAutomatic
End If
Next
ActiveSheet.Protect
Exit Sub
errorHandling:
MsgBox "Der folgende Fehler ist aufgetreten: " & _
Err.Number & " - " & Err.Description, vbCritical + _
vbOKOnly, "Excel Weekly: Formelzellen schützen"
End Sub
und einer Schaltfläche zugewiesen.Wenn ich das Makro aktiviere erhalte ich folgende Fehlermeldung:
"1004-Die Locket-Eigenschaft des Rang-Objektes kann nicht festgelegt werden."
Was habe ich falsch gemacht und was muß ich verändern?
Vielemn Dank für eure Hilfe
und
MfG
Winne