An Ransi (oder andere), Frage zu deinem Code
Holger
nochmal Danke für deinen Code.
Zur Erinnerung: wird eine Zelle im Rangebereich H:J ausgewählt, wird dieses
plus die Zelle aus A gelb gefärbt.
Das funktioniert soweit ganz gut, nur wenn der User danach in eine andere Zelle klickt,
die nicht im Rangebereich liegt, bleibt die Färbung erhalten und genau das möchte ich noch ändern.
Nur wie, weiß ich nicht genau, weil ja die Information welche Zellen gefärbt wurden,
beim nächsten KLick schon wieder weg ist!?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldIndexA As Integer
Static OldIndexH_J As Integer
Static OldCellA As Range
Static OldCell As Range
If Intersect(ActiveCell, Range("H:J")) Is Nothing Then Exit Sub
'Rangebereich festlegen auf Spalte H, I und J
'Immer die Zelle der Spalte A mitfärben
'Zwischen Target und Spalte A Rahmen färben
On Error Resume Next
OldCell.Interior.ColorIndex = OldIndexH_J
OldCellA.Interior.ColorIndex = OldIndexA
If Not OldCell Is Nothing Then
OldIndexH_J = ActiveCell.Interior.ColorIndex
OldIndexA = Range("A" & ActiveCell.Row).Interior.ColorIndex
End If
ActiveCell.Interior.ColorIndex = 6
Range("A" & ActiveCell.Row).Interior.ColorIndex = 6
Set OldCell = ActiveCell
Set OldCellA = Range("A" & ActiveCell.Row)
End Sub