Hilfe bei Workbook_SheetSelectionChange
02.12.2006 21:31:02
Peter
aus dem Forum habe ich eine Code von Hajo gefunden, mit dem ich die aktive Zelle färben kann.
Da einige Zellen gesperrt sind, funktioniert der Code nicht.
Es kommt die Meldung:
Fehler beim Kompilieren / Variabele nicht definiert.
Und zwar bei "Old Range"
Ich vermute das der Code die "Alte Hintergrundfarbe" der zelle nicht kennt.
Wie kann ich das ändern.
Oder wie dem Code sagen welche Farbe die Zellen haben.
Hier der Code von Hajo:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
' nach Hinweis von Peter Hasserodt Vergleich eingefügt
If Aktion = True Then Exit Sub
If TypeName(ActiveSheet) = "Worksheet" Then
With ActiveSheet
.Unprotect "Test"
' Beim 1. Aufruf ist OldRange noch undefiniert
If OldRange = "" Then
OldRange = Target.Address
OldColorIndex = Target.Interior.ColorIndex
' Setze Hintergrundfarbe der aktiven Selection auf Rot
Target.Interior.ColorIndex = 3
Else
' Setze alten Range auf alte Farbe
If Range(OldRange).Interior.ColorIndex = 3 Then
Range(OldRange).Interior.ColorIndex = OldColorIndex
End If
OldColorIndex = Target.Interior.ColorIndex
' Merke mir aktuellen Adresse für nächsten Aufruf
OldRange = Target.Address
' Setze Hintergrundfarbe der aktiven Selection auf Rot
Target.Interior.ColorIndex = 3
End If
.Protect "Test"
End With
End If
End Sub
Gruß Dieter
Anzeige