|
Hallo Leute,
Set ParameterSet = ParaSetter.Worksheets("ParameterSet")
ich habe Params als Strings, die Objekte enthält und würde die gerne in die FUnktion P01 weitergeben.Leider kriege ich immer eine Fehlermeldung bei
P01MaxKonstColumn, dass ein Objekt fehlt und das ist ganz klar das worksheet ParameterSet, was ich vorgher gesttet habe. Das merkwürdige daran ist, dass wenn ich die so darstelle: "Application.Run P01, Steuerung, ParameterSet, ParameterRicRow, myRange, myRangeAbs, myRangeRel, P01, P02, P03, P04, P05, P06, P07", werden die alle in den folgenden Funkltionen erkannt, aber unter dem String "Params" nicht.
Hat jemadn eine Idee
Danke Euch
Dim ParaSetter As Workbook
Dim ParameterSet As Worksheet
Dim myRange As Range
Dim myRangeAbs As Range
Dim myRangeRel As Range
Dim Params As String
Dim ParameterRicRow As Long
Set Steuerung = ParaSetter.Worksheets("Steuerung")
Set ParaRegeln = ParaSetter.Worksheets("ParaRegeln")
Set ParameterSet = ParaSetter.Worksheets("ParameterSet")
Params = "Steuerung, ParameterSet, ParameterRicRow, myRange, myRangeAbs, myRangeRel, P01, P02, P03, P04, P05, P06, P07"
Application.Run P01, Params
Function Parameter_P01(Params)
'**********************
'P01
'**********************
Dim AnzahlKonstantMAX As Integer
P01MaxKonstColumn = WorksheetFunction.Match("MAX_KONSTANT", ParameterSet.Range("A1:AM1"), 0)
|