Hi,
was steht denn in P bzw. P01 für ein Wert? Wenn es wieder "P01" als Text ist dann schau dir mal die CallByName-Funktion genauer an.
Sub alskjf()
a = CallByName(Me, "P01", VbMethod, 1, 1)
End Sub
Function P01(a, b)
P01 = "Hallo"
End Function
Function P02(c, b)
P02 = "DuDa"
End Function
oder in deinem Fall: Wert = CallByName(Me, "Prufung_" & P, vbMethod, Parameter, ParameterRicRow, myRange, P022, ws)
Dies funktioniert aber nur, wenn sich der Code nicht in einem Standardmodul (z.B. Modul1) sondern z.B. in einem Tabellenmodul befindet.
Auch solltest du dir überlegen, ob du nicht lieber die Funktionen zu einer Funktion zusammenfassen willst, dann brauchst du nur diese eine aufzurufen und kannst innerhalb mit If arbeiten.
Gruß Mr. K.
|