Hi Gast,
erfolgreich testen konnte ich es nicht, leider. Es wirft einen fehler raus. Ich versuche die "P's" flexibel zu halten, z.b.
PlausiP01Column = WorksheetFunction.Match("P01", plausi.Range("A1:P1"), 0)
PlausiP02Column = WorksheetFunction.Match("P02", plausi.Range("A1:P1"), 0)
PlausiP03Column = WorksheetFunction.Match("P03", plausi.Range("A1:P1"), 0)
Funktioniert:
plausi.Cells(t, PlausiP01Column).Interior.Color = vbRed
Der Wert in PlausiP01Column wird nicht erreicht.
plausi.Cells(t, "Plausi" & P & "Column").Interior.Color = vbRed
|