Bedingte Formatierung mit VBA - Anwendungsbereich
05.07.2016 10:35:20
Peter
folgendes Problem: Ich möchte eine Zeile von Spalte C bis Spalte P per Bedingter Formatierung grau einfärben, wenn in Spalte K "Start" steht. Hierfür habe ich bisher folgenden Code:
Columns("C:P").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=K1=""Start"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.249946592608417
End With
Selection.FormatConditions(1).StopIfTrue = False
Da meine normale Bedingte Formatierung (ohne VBA) immer zerschossen wird, wenn ich im Tabellenblatt kopiere und einfüge, versuche es mit einer VBA-Lösung.
Vielen Dank für eure Hilfe!
Gruß,
Peter
Anzeige