Aktive Zelle mit Farbe hinterlegen
16.12.2005 13:25:00
Jakob
ich habe folgenden Code auf den Seiten von excel-inside gefunden:
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 = 6
Set lastcell = Target
End Sub
Könnte man diesen Code so abändern, daß er auch funktioniert wenn das Arbeitsblatt geschützt ist? Ich würde diesen Code gerne in einen Formular verwenden und dieses habe ich mit einen Blattschutz versehen.
Gruß
J.Freitag