Hintergrundfarbe active Cell
03.11.2002 14:47:06
Michael
habe folgenden Code gefunden der auch funktioniert
*****************************************************
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
iClrNeu = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6
Adr.Interior.ColorIndex = iClrAlt
iClrAlt = iClrNeu
Set Adr = Target
End Sub
**************************************************************
er funtioniert aber nicht wenn der Tabellenschutz eingeschaltet ist.
bei mir ist die Tabelle geschütz bis auf Spalte L:L + M:M
bei diesen Spalten soll der Code funktionieren
Kann mir einer helfen
Danke im vorraus für eure Mühe
Gruß Michael