Folgender Code verursacht bei einem geschützten Arbeitsplatz den Laufzeitfehler 1004:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' SCHRIFT
' für Hintergrund RaZelle.Interior.ColorIndex
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("C6:AG50,C54:AG63,C67:AG101,C104:AG153,C157:AG166,C171:AG182")
' ActiveSheet.Unprotect
For Each RaZelle In Range(Target.Address)
' überprüfen ob Zelle im vorgegebenen Bereich
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Select Case RaZelle.Value
Case "S"
RaZelle.Interior.ColorIndex = 26
Case "N"
RaZelle.Interior.ColorIndex = 24
Case "U"
RaZelle.Interior.ColorIndex = 4
Case "K"
RaZelle.Interior.ColorIndex = 5
Case "B"
RaZelle.Interior.ColorIndex = 7
Case Else
RaZelle.Interior.ColorIndex = 0
End Select
End If
Next RaZelle
' ActiveSheet.Protect
Set RaBereich = Nothing
End Sub
Den Range-Bereich habe ich schon mehrfach überprüft.
Ist der Blattschutz aufgehoben, klappt alles wunderbar.
Blatt geschützt und auch in den Bereichen die Sperre aufgehoben - Laufzeitfehler 1004.
Könnte sich bitte jemand dieses Problems annehmen??
Vielen Dank
Klaus W.