Ppruefungen = Split(ParameterSet.Rows(ParameterRicRow).Columns(ParaPlausiColumn).Value,
","
)
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)
For
Each
P
In
Ppruefungen
Application.Run
"Pruefung_"
& P, ParameterSet, ParameterRicRow, t, history, historyfound, RIc, plausi, RIC_Wert, VortagWert
Next
P