|
Hallo Holger,
vielen Dank für deine Antwort! Der Code läuft jetzt einwandfrei, hier die Final:
Function EingabefktTyp4(z1, z2, x1, y1, ParamArray parray() As Variant) As String
On Error GoTo error1
'red0.1
If IsArray(z1) Then 'blue0.1
EingabefktTyp4 = ("z1 darf kein array sein")
Exit Function
End If
'red0.2
If IsArray(z2) Then 'blue0.2
EingabefktTyp4 = ("z2 darf kein array sein")
Exit Function
End If
If z1 <> "" And z2 <> "" Then 'red2
If IsArray(x1) Or IsArray(y1) Then 'red3
If IsArray(x1) And IsArray(y1) Then 'red4
If UBound(parray()) <> -1 Then 'blue1
'MsgBox UBound(parray())
EingabefktTyp4 = ("Zu viele Parameter")
Exit Function
Else 'red5
If x1(1) = "" Or y1(1) = "" Then 'blue2
EingabefktTyp4 = ("Zu wenig Parameter")
Exit Function
Else 'red6
'MsgBox x1.Count
'MsgBox y1.Count
If x1.Count = y1.Count Then 'blue3
'HIER RECHNEN MIT RANGES!
'MsgBox "rechnung mit ranges"
EingabefktTyp4 = (x1(x1.Count) & y1(y1.Count))
Else 'blue4
EingabefktTyp4 = ("Ranges nicht gleich groß!")
Exit Function
End If
End If
End If
Else 'blue5
If IsArray(x1) = False Then 'blue 5,5
EingabefktTyp4 = ("x1 ist kein Rangeobject")
Exit Function
End If
If IsArray(y1) = False Then ' blue 5,6
EingabefktTyp4 = ("y1 ist kein Rangeobject")
Exit Function
End If
EingabefktTyp4 = ("x1 und y1 müssen Range oder Einzelwert sein, Paramarray muss dabei leer gelassen werden!")
Exit Function
End If
Else 'red 7
'MsgBox "red7"
If x1 <> "" And y1 <> "" Then 'red8
If UBound(parray()) <> -1 Then 'blue6
EingabefktTyp4 = ("zu viele Parameter")
Exit Function
Else 'blue7
'Rechnung mit einzelwerten x1, y1
'MsgBox "Rechnung mit einzelwerten"
EingabefktTyp4 = (x1 & y1)
End If
Else 'red8,5
'MsgBox (UBound(parray))
If x1 <> "" Or y1 <> "" Then 'blue7,5
EingabefktTyp4 = ("x1 und y1 müssen für die Verwendung von Parray beide leer sein!")
Exit Function
Else 'red9
If UBound(parray()) <> -1 Then 'red10
'MsgBox "red10"
If (((UBound(parray) + 1) Mod (2)) = 0) Then 'blue8
'Rechnung mit Paramarray!
'MsgBox "rechnung mit paramarray"
EingabefktTyp4 = (parray(UBound(parray())))
Else 'blue9
EingabefktTyp4 = ("Parameterzahl ungerade")
Exit Function
End If
Else 'blue10
EingabefktTyp4 = ("zu wenig Werte")
Exit Function
End If
End If
End If
End If ' ??? von red 8,5
Else 'blue11
EingabefktTyp4 = ("z1 oder z2 falsch")
Exit Function
End If
Exit Function
error1:
z1 = ""
y1 = ""
z2 = ""
x1 = ""
EingabefktTyp4 = "In den Feldern X1, Y1 und allen Z Feldern müssen immer Werte stehen. Falls keiner eingestzt werden soll, bitte "" verwenden oder eine leere Zalle angeben!"
End Function
Ich wünsch euch noch nen schönen Tag, Manu
|