AW: Zeile markieren wenn in Zelle best. Wert
31.03.2022 22:48:01
Yal
Hallo Addi,
ja, der Makrorekorder kann geschwätzig sein. Aber nicht immer.
Ausserdem ein nicht ganz unerheblichen Teil des Codes, die ich im Forum poste, erzeuge ich selber mit Makrorekorder. Weil alles anders zu mühsam ist.
Versuche mal mit folgendes. Du wirst sicher den Muster schnell erkennen und sehen, wo Du was anpassen muss.
Sub BedingteFormatierung_setzen()
Dim fc As FormatCondition
Dim i, T, F
Const cText = "xyz;abc;def"
Const cFarbe = "32832;16512;12599296"
With Range("E5:E24")
.FormatConditions.Delete
T = Split(cText, ";")
F = Split(cFarbe, ";")
For i = 0 To UBound(T)
.FormatConditions.Add Type:=xlExpression, Formula1:="=LINKS(E5;3)="""" & T(i) & """""
With .FormatConditions(Selection.FormatConditions.Count).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = F(i)
End With
Next
End With
End Sub
Hast Du Schwierigkeit mit der Wahl der Farben, kann folgendes eine Farbpalette erzeugen:
Sub Farbetest()
Dim R, G, B, z
For R = 0 To 255 Step 64
For G = 0 To 255 Step 64
For B = 0 To 255 Step 64
z = z + 1
Tabelle1.Cells(z, 1).Interior.Color = RGB(R, G, B)
Tabelle1.Cells(z, 2) = R & "|" & G & "|" & B
Tabelle1.Cells(z, 3) = RGB(R, G, B)
Next
Next
Next
End Sub
Note: RGB(a,b,c) = a + 256 * b + 256 * 256 * c
VG
Yal