Anzeige
Archiv - Navigation
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Eigene Split Funktion, Fehler 13

Eigene Split Funktion, Fehler 13
19.05.2006 11:43:41
Reinhard
Hallo Wissende,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eigene Split Funktion, Fehler 13
19.05.2006 12:30:18
Martina
hi Reinhard,
du hast da ein paar Denkfehler drin
das geht bestimmt eleganter aber so ist es besser zu verstehen:
Dim Satz2
Dim satz3()

Sub test()
Dim Satz As String, n As Integer
Satz = "aaaaa,bbbb,cccc"
Satz2 = Split2(Satz, ",")
'Satz2 = Split2(Satz, "+")
For n = 0 To UBound(satz3)
MsgBox satz3(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 satz3(anz)
satz3(anz) = Left(Satz, InStr(Satz, Trenner) - 1)
Satz = Mid(Satz, InStr(Satz, Trenner) + Len(Trenner))
anz = anz + 1
Wend
ReDim Preserve satz3(anz)
satz3(anz) = Satz
End Function

MfG
Martina
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige