Hallo zusammen,

zwei Fragen:
1. Ich möchte eine Zelle schützen wenn die Zelle rot ist:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Interior.ColorIndex = 3 Then
'With Selection
'ActiveCell.Locked = True
'End With
MsgBox "ja"
End If

Mein Aufruf MsgBox klappt;
der Schutz nicht - trotz unterschiedlicher Versuche.

2. Gibt es einen Unterschied im Farb-Index:
a) wenn ich aus der Symbolleiste "ROT" auswähle, funktioniert
der VBA-Code mit dem Index "3"
b) wenn ich dieselbe Auswahl allerdings über bedingte
Formatierung einstelle spricht der VBA-Code auf den
Farb-Index "3" für "ROT" nicht an.
Gibts da einen Unterschied?
Oder kann mann evtl. die Farbnummer einer bestimmten Zelle
abfragen. Den Farb-Index gesamt habe ich bereits aus diesem Forum.

Besten Dank für eine Hilfe!

mfg
Erich