Bestimmte Zelle in aktiver Zeile markieren
09.02.2016 11:44:56
Micha
habe ein kleines Problem vieleicht könnt ihr mir helfen!?
Ich habe ein Marko mit dem ich in einer aktiven Zeile 2 bestimmte Zellen markiere.
Das 1. Problem ist, wenn die Datei gespeichtert und wieder geöffnet wird, bleibt die alte Markierung aktiv, sobald man in eine andere Zeile klickt sind also zwei Zellen markiert. Erst wenn die alte Zeile aktiv ist springt die Markierung weiter.
Das 2. Problem ist, wenn man nach dem öffnen in eine Zelle mit bestehender Hintergrundfarbe klickt verschwindet diese.
Die Markierung dient nur als Orientierungshilfe, und sollte wenn möglich vor dem schließen verschwinden bzw. nicht mehr aktiv sein.
Hier das Makro:
Public AlteZeile As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Application.DisplayAlerts = False
If AlteZeile 0 Then
Range(Cells(AlteZeile, 5), Cells(AlteZeile, 6)).Interior.ColorIndex = xlColorIndexNone
Range(Cells(Target.Row, 5), Cells(Target.Row, 6)).Interior.ColorIndex = 4
Else: Target.Interior.ColorIndex = xlNone
End If
AlteZeile = Target.Row
'Application.DisplayAlerts = True
End Sub