VBA Prozeduraufruffehler oder ein ungültiges Argum
19.01.2019 15:14:01
SteinApfel
ich habe erneut ein Problem. Im Folgenden könnt ihr die beiden Funktionen einsehen. Die erste Funktion soll Daten an die zweite weitergeben, da das die einzigen Variablen sind, der Rest ist davon abhängig oder ergibt sich.
Die erste Funktion läuft ohne Probleme durch, die zweite jedoch "meckert" an der stelle von Var1V (Match-Funktion). Dort ist angeblich ein Prozeduraufruffehler oder ein ungültiges Argument, ich mir aktuell nicht vorstellen woran es liegt.
Ich hoffe Ihr könnt mir schnell helfen. Vielen Dank für eure Bemühungen.
Bei Fragen gerne an mich wenden, dann füge ich weitere Informationen hinzu.
Beste Grüße
Hendrik
Public Function LinInt_Linienlast()
Dim ListeV As range
Dim ListeH As range
Dim intVert As Integer
Dim intHori As Integer
Dim ListEnde As Integer
With WSFeldmeier
Set ListeV = .range("I15:I28")
Set ListeH = .range("J14:O14")
intVert = 15
intHori = 9
ListEnde = 28
Call LinInt_Linienlast_Hilfsfunktion(ListeV, ListeH, intVert, intHori, ListEnde)
IntCf = IntC
End With
End Function
Public Function LinInt_Linienlast_Hilfsfunktion()
Dim Vert As Double
Dim Hori As Double
Dim X1 As Double
Dim X2 As Double
Dim Y1 As Double
Dim Y2 As Double
Dim Z1 As Double
Dim Z2 As Double
Dim Z3 As Double
Dim Z4 As Double
Dim H1 As Double
Dim H2 As Double
Dim ListeV As range
Dim ListeH As range
Dim Var1V As Double
Dim Var2V As Double
Dim Var1H As Double
Dim Var2H As Double
Dim VarV As Double
Dim VarH As Double
If WSEinst.CBLagerung = "allseitig liniengelagert" Then
Vert = WSEinst.range("Breite") / WSEinst.range("Höhe")
Hori = WSEinst.range("hHolm") / WSEinst.range("Höhe")
With WSFeldmeier
If Hori > 0.5 Then Hori = 0.5 - (Hori - 0.5)
Var1V = Application.WorksheetFunction.Match(Vert, ListeV, 1) + intVert
End Function