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