Frage Funktion textzahl
Hallo Leute!
Möchte eine Funktion schreiben die mir aus einem String zB.: "23+123+83+79" die Summe der einzelnen Zahlen ausgibt.
Hänge aber bereits schon hier:
Public Function textzahl(text As String)
Dim d, pos, i As Long
Do While (Len(text) > 0)
pos = InStr(text, "+")
d = Val(Left(text, pos - 1))
text = Mid(text, pos + 1)
Debug.Print (d)
Loop
End Function
Fehlermeldung von VBA:
Unzulässiger Prozeduraufruf oder ungültiges Argument (Fehler 5)
Was ist da falsch und muss besser oder anders gemacht werden?
Coolbininet
____________________________________
Wenn du eine helfende Hand brauchst, tust du gut wenn, du sie an den eigenen Armen suchst!
Website RI
Nur der Kleingeist hält Ordnung das Genie überblick das Chaos! Genie und Wahnsinn liegen dicht nebeneinander, sie können und sollen nicht getrennt werden.
|Marktorientierter Sozialist|Menschenfreund|Teamfähig|Analytiker|Logi ker|
If you want to see the Sky, fuck a Duck and learn to fly!
Mein Glück ist nicht von dieser Welt, insbesondere im Umgang mit Microsoft Produkten!
Möge die MACHT mit uns sein!
|