Habe schon in der Recherche gestöbert aber bisher noch nichts gefunden.
Problem:
Im Arbeitsblatt soll die ausgewählte Zelle (durch Maus oder Cursortasten) anders eingefärbt werden (Zelle oder auch die Zeile). Beim verlassen (in eine andere Zelle) soll der Ursprungszustand wieder hergestellt werden (Hintergrund-Farbe).
Der nachfolgende Code (im Forum gefunden) funtioniert nicht bei einfärbten Blättern:
Dim ranAltBereich As Range
Dim lngColorIndex(1 To 256) As Long
Dim bolDynMauszeiger As Boolean
Sub MarkierungEin(ByVal Target As Excel.Range)
Dim ranZelle As Range
Dim x As Integer
If bolDynMauszeiger = False Then Exit Sub
If Not ranAltBereich Is Nothing Then
x = 0
On Error Resume Next
For Each ranZelle In ranAltBereich
x = x + 1
ranZelle.Interior.ColorIndex = lngColorIndex(x)
Next
End If
Set ranAltBereich = _
Range("A" & Target.Row & ":IV" & Target.Row)
x = 0
For Each ranZelle In ranAltBereich
x = x + 1
lngColorIndex(x) = _
ranZelle.Interior.ColorIndex
Next
Target.EntireRow.Interior.Color = RGB(255, 255, 200)
End Sub
Sub MarkierungAus()
Dim x As Integer
Dim ranZelle As Range
If Not ranAltBereich Is Nothing Then
x = 0
For Each ranZelle In ranAltBereich
x = x + 1
ranZelle.Interior.ColorIndex = lngColorIndex(x)
Next
End If
End Sub
Sub MauszeigerEinschalten()
bolDynMauszeiger = True
End Sub
Für einen kleinen Tip wäre ich dankbar!
Holger