Probleme mit ParamArray
19.04.2006 12:17:44
stefanie
ich habe folgende funktion geschrieben.
Function GetError(ParamArray InputRange())
Dim Str1 As Variant
NumberOfFailures = 0
For Each Str1 In InputRange
GetError = 0
ipos1 = InStr(Str1, ":")
ipos2 = InStr(Str1, "/")
If ipos1 = 0 Then
If ipos2 = 0 Then
NumberOfFailures = NumberOfFailures + 0
Else
NumberOfFailures = NumberOfFailures + Val(Mid(Str1, 1, ipos2 - 1))
End If
Else
If ipos2 = 0 Then
NumberOfFailures = NumberOfFailures + 0
Else
NumberOfFailures = NumberOfFailures + Val(Mid(Str1, 1, ipos2 - 1))
End If
End If
If ipos1 = 0 And ipos2 = 0 Then
NumberOfFailures = NumberOfFailures + 0
Else
NumberOfFailures = NumberOfFailures + Val(Mid(Str1, 1, ipos2 - 1))
End If
Next Str1
GetError = NumberOfFailures
MsgBox (GetError)
End Function
Soll heißen ich möchte alle Werte aufaddieren die vor einem "/" sind.
2/112
1/32
1/18
3:30
3:30/80
100
hier: =Geterror(A1:A6)
soll rauskommen 34
wer kann weiterhelfen?
Gruß