Groß Problem mit färben und weiter Frage
22.06.2004 14:59:18
Alex
ich habe bei "DieseArbeitsmappe" folgende Formel eingesetz
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
With Target
If .Column > 1 Then Exit Sub
Target.Interior.ColorIndex = IIf(.Interior.ColorIndex = xlNone, 4, xlNone)
End With
'Cancel = True
End Sub
um die erste Zeile hellgrün bei Doppelklick zu makieren. Jetzt ist das Problem.
1. Wenn ich den Blattschutz reinmachen erhalte ich immer die fehlermeldung wenn ich die zelle färben will, " Laufzeitfehler '1004' Die Color-Index-Eigenschaft des Interior-Objektes kann nichtfestgelegt werden. Und dies kommt obwohl ich das gesperrt häckchen entfernt habe für die ganze Spalte.
2.Dann hätte ich gerne das ich bei doppelklick sich nicht nur die Zellen aus spalte A hellgrün färben sondern bei einem Doppelklick in Spalte J sollen sich die einzelnen Zellen Gelb färben.
Hoffentlich kann mir jemand helfen