ByRef Fehler in selbst geschriebener Funktion
13.02.2018 17:23:19
Uffdi
Ich bitte um Hilfe. Im folgenden Code bekomme ich die Fehlermeldung, dass das i in der bekannten Splitter-Funktion einen ByRef-Fehler erzeugt.
Kann mir jemand sagen, wie ein solcher Fehler zustande kommt oder welche Referenz ich nicht beachte?
Bemerkung: Den Code habe ich selber geschrieben. Aber bisher funktioniert er (noch) nicht. Jede Hilfe ist sehr willkomen!
Function OlisFunktion(Bezug As Range) As String
Dim String_out As String
Dim HilfsString As String
HilfsString = Bezug.Value
Dim i, n As Integer
Do While InStr(HilfsString, ",") > 0
n = n + 1
HilfsString = Mid(HilfsString, InStr(HilfsString, ","))
Loop
For i = 1 To n
Dim x_i As String
If Right(Bezug.Value, 1) = "-" Then
x_i = Splitter(Bezug, ",", i) - 2
Else
x_i = Splitter(Bezug, ",", i) - 1
End If
OlisFunktion = OlisFunktion + "," + x_i
Next
End Function
Anzeige