Gruppe
Feature
Problem
Wie kann ich eine Zeile in A:H farbig markieren, wenn eine Zelle in der Zeile ein "x" beinhaltet?
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:D10")) Is Nothing Then Exit Sub
'Wenn die bestehende Markierung nicht aufgehoben werden soll,
'die beiden folgenden Zeilen auskommentieren
Range("B2:E10").Interior.ColorIndex = XlColorIndex.xlColorIndexNone
Range("B2:E10").Font.Bold = False
Target.Interior.ColorIndex = 3
Target.Font.Bold = True
Cells(Target.Row, 5).Interior.ColorIndex = 3
Cells(Target.Row, 5).Font.Bold = True
End Sub