Anzeige
Archiv - Navigation
1148to1152
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
Inhaltsverzeichnis

Split mit Wildcard

Split mit Wildcard
Gerd
Hallo,
kann man bei einem Splitbefehl auch Wildcards benutzen?
Mit Split(Text;"AB 1") trenne ich im Moment meinen Text in die passenden Stücke.
Leider kann der Trenner statt "AB1" aber auch mal "AB 9" oder "AB 15" sein.
Kann ich das irgendwie mit einem Splitbefehl abfangen? Split (Text;"AB *") geht leider nicht.
Danke!
Gerd

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Sowas kann nicht funktionieren!
25.03.2010 12:52:30
Renee
Gerd,
Das Trennkenzeichen muss eindeutig sein. Ein Wildcard macht auch keinen Sinn, weil dann ja nach dem AB x-beliebiges folgen könnte, also auch der eigentliche zu extrahierende Wert.
Bleibt nur auf "AB " zu splitten und dann jeden Eintrag ggf. nochmals aufzutrennen. Aber vielleicht kannst ja mal einige Beispiele von solchen Daten hier reinstellen!
GreetZ Renée
habe eine Lösung
25.03.2010 14:22:14
Gerd
Hallo Renée,
ich mache es jetzt so: split(split(Text,"AB");" ") (2)
Damit bekomme ich den Wert nach der Zahl und das ist, was ich brauche.
Gerd
Was zufällig nur den 1 Wert zurückgibt! (owt)
25.03.2010 14:44:03
Renee

AW: Split mit Replace
25.03.2010 15:16:13
Gerd
Hallo Namensvetter!
strText = "#### AB 99 #####"
strText= Replace(strText, "AB ", "AB")
strText= Split(strText,"AB") (2)
strText= Mid(strText, 1+ Len(Val(strText)))
Gruß Gerd
Anzeige
Nein, aber man kann den Delimiter dynamisch...
25.03.2010 19:34:41
Luc:-?
…gestalten, Gerd…
Const defTrZ As String = "AB ", eleWahl As Long = 1
Dim Text As String, TextErg As String, aktTrZ As String, _
TrZpos As Long, p As Long, TextVar As Variant
TrZpos = Instr(Text, defTrZ)
If CBool(TrZpos) Then
p = TrZpos + Len(defTrZ): aktTrZ = defTrZ
While IsNumeric(Mid(Text, p, 1))
aktTrZ = aktTrZ & Mid(Text, p, 1): p = p + 1
Wend
TextVar = Split(Text, aktTrZ)
TextErg = TextVar(LBound(TextVar) + eleWahl)
Else: TextErg = Text
End If
'...
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige