Hi Gast,
vielen Dank für die Antwort. Ich habe in der Eile vergessen, noch einen Teil hinzuzufügen. Bei mir wird die variable P schon in der "Ppruefungen" ausgelesen und in die Application.Run weitergegeben. Danach sollte es auch an die ""Plausi" & P & "Column"" weitergegeben werden. Könnte ich mit der Collection Funktion dieses Probel auch lösen?
Danke Dir
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
' If pruefung = True Then
' plausi.Cells(t, "Plausi" & P & "Column").Interior.Color = vbRed
' End If
Next P
|