Aktive Zelle farblich darstellen
01.08.2005 14:16:12
Helge
Ich möchte gerne eine aktive Zelle farblich hervorheben lassen (die ggf. bestehende Farbe soll nach dem Verlassen der Zelle wieder hergestellt werden). Dafür habe ich folgendes eingegeben:
Dim lastcell As Range
Dim farbe As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
lastcell.Interior.ColorIndex = farbe
farbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 19
Set lastcell = Target
End Sub
Nun muss dieses Tabellenblatt aber mit einem Blattschutz versehen werden und nur bestimmte "Eingabezellen" sollen für die User zugänglich sein. Mit dem aktiviertem Blattschutz geht das Ganze nun nicht mehr... wer kann mir diesbezüglich weiterhelfen? Vielen Dank im Voraus!!!!
Anzeige