AW: Bedingte Formatierung
30.05.2017 15:22:37
Tom
upps war der falsche Code....
'bedingte Formatierung, wenn in Spalte K ein "b" eingetragen ist
With .Range(.Cells(Zeile_Z1, 12), .Cells(Zeile_Z, 28))
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=$K7=""b"""
With .FormatConditions(1).Interior
.Pattern = 14 'xlPatternLightUp
.PatternThemeColor = xlThemeColorLight1
' .ColorIndex = xlAutomatic
.ColorIndex = 8
.PatternTintAndShade = 0
End With
'bedingte Formatierung, wenn in Spalte K ein "i" eingetragen ist
.FormatConditions.Add Type:=xlExpression, Formula1:="=$K7=""i"""
With .FormatConditions(2).Interior
.Pattern = 14
.PatternThemeColor = xlThemeColorAccent4
.ColorIndex = 4
.PatternTintAndShade = 0
End With
'bedingte Formatierung, wenn in Spalte K ein "u" eingetragen ist
.FormatConditions.Add Type:=xlExpression, Formula1:="=$K7=""u"""
With .FormatConditions(3).Interior
.Pattern = 14
.PatternThemeColor = xlThemeColorAccent4
.ColorIndex = 15
.PatternTintAndShade = 0
End With
'bedingte Formatierung, wenn in Spalte K ein "a" eingetragen ist
.FormatConditions.Add Type:=xlExpression, Formula1:="=$K7=""a"""
With .FormatConditions(4).Interior
.Pattern = 14
.PatternThemeColor = xlThemeColorAccent4
.ColorIndex = 3
.PatternTintAndShade = 0