Ich möchte, das man in einem Worksheet einen gewissen Bereich mit verschiedenen Farben einfärben kann (D6:AH22). Den anderen Bereich sollte man nicht einfärben können. Mit Zellen sperren, das funktioniert nicht.
mfg
Gerhard S.
mfg
Gerhard S.
Bereich markieren, "Format" "Zellen" "Schutz" und gesperrt ausschalten. Danach Blattschutz setzen. So funktioniert es.
Für VBA schaue Dir mal "Intersect" an
Gruß Otto
Gerhard S.
das mit Intersect ist nicht richtig. Durch das Färben einer Zelle wird weder ein Worksheet_Change noch ein ..._Selectionchange ausgelöst. Ansonsten in das Klassenmodul (z.B. Tabelle1)
Private Sub Worksheet_Change(ByVal Target As Range)
if Intersect(Activecell,Range("d6:AH22") is nothing then exit sub
activecell.value=activecell.value+150
end sub
Aber wie gesagt, das hilft hier nicht.
Es bleibt eigentlich nur, das Färben per VBA durchzuführen. (Um den Blattschutz kommst Du aber nicht vorbei).
Gruß Otto
'Direkt in das Tabellenblatt schreiben
Private Sub Worksheet_Activate()
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
vielen Dank nochmal
mfg
Gerhard S.