VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Hintergrundfarbe einer Zeile, wenn bestimmter Wert in 1 Zelle

Gruppe

Feature

Bereich

Bedingt

Thema

Hintergrundfarbe einer Zeile, wenn bestimmter Wert in 1 Zelle

Problem

Wie kann ich eine Zeile in A:H farbig markieren, wenn eine Zelle in der Zeile ein "x" beinhaltet?

Lösung

Erste Formel für die bedingte Formatierung: =ISTFEHLER(VERGLEICH("x";1:1;0))=FALSCH




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

    


Beiträge aus dem Excel-Forum zu den Themen Feature und Bedingt