Zeilen einfärben
10.03.2016 10:13:24
Ro
ich hab mal wieder ien kleines Problem mit einem VBA Code.
Und zwar möchte ich beim Anwählen einer Zelle, dass die entsprechende Zeile farblich markiert wird. Das funktioniert auch! Allerdings wird beim Speichern der Datei die zuvor markierte Zelle fest eingefärbt. Sprich nach dem erneuten Öffnen ist die Zeile immer gefärbt.
Ich habe schon ein paar Sachen probiert. Zum Beispiel, dass nach dem Wechsel eines Tabellenblattes die Zelle (3,3) markiert wird. Das hat aber nicht funktioniert...
Habt Ihr eine Idee wie man das lösen könnte?
Hier der Code:
Dim Merk, Farbe
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveWorkbook.Worksheets(4) Is ActiveSheet Then
If Merk "" Then Rows(Merk).Interior.ColorIndex = Farbe
If Intersect(Target, Range("B8:L20000")) Is Nothing Then Exit Sub
Merk = Target.Row
Farbe = Target.Interior.ColorIndex
Rows(Target.Row).Interior.ColorIndex = 35
Else
Exit Sub
End If
End Sub
Liebe Grüße,
Roxi