Zellfarbe ändern wenn Zeile markiert ist
25.01.2018 15:01:08
Micha
ich habe den untenstehenden Code gefunden.
Dieser Code färbt die komplette Zeile, wenn nur eine Zelle angeklickt wird.
Das funktioniert soweit Prima. Ich möchte aber, dass nur die Zelle in Spalte B farbig wird, anstatt die komplette Zeile.
Ich hoffe jemand kann mir den Code anpassen.
Vielen lieben Dank,
Micha
Dim Merk, Farbe
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Merk "" Then Rows(Merk).Interior.ColorIndex = Farbe
If Intersect(Target, Range("C5:J30")) Is Nothing Then Exit Sub
Merk = Target.Row
Farbe = Target.Interior.ColorIndex
Rows(Target.Row).Interior.ColorIndex = 20
End Sub