Option Explicit
Dim Satz2()
'Dim Satz2
Sub test()
Dim Satz As String, n As Integer
Satz = "aaaaa,bbbb,cccc"
Satz2 = Split2(Satz, ",")
'Satz2 = Split2(Satz, "+")
For n = 0 To UBound(Satz2)
MsgBox Satz2(n)
Next n
End Sub
Function Split2(ByVal Satz As String, ByVal Trenner As String)
Dim anz
anz = 0
While InStr(Satz, Trenner) > 0
ReDim Preserve Satz2(anz)
Satz2(anz) = Left(Satz, InStr(Satz, Trenner) - 1)
Satz = Mid(Satz, InStr(Satz, Trenner) + Len(Trenner))
Wend
End Function
Der Fehler tritt in
Satz2 = Split2(Satz, ",")
obwohl vorher die Schleife in der Funktion mehrmals durchlaufen wurde, ohne
Fehlermeldung, also Fehler kommt erst nach dem Rücksprung in die Sub.
Danke ^ GrußReinhard