Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
540to544
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String teilen bei mehreren Bedingungen

String teilen bei mehreren Bedingungen
04.01.2005 10:52:24
Talcom
Hallo Zusammen,
wie kann ich einen String teilen, wenn eine von mehreren Bedingen zutrifft.
Ich habe einen String mit n-Zeichen. Dieser soll getrennt werden, wenn entweder ", " oder " WHERE" oder " ORDER BY" oder " FROM" in dem String
auftaucht. Anschließend soll im String weitergelesen werden, ob nicht noch
weitere Stücke erstellt werden können. Das Ergebnis soll in eine Tabelle
geschrieben werden, die ich später zur Ausgabe wieder auslesen kann.
Kann mir jemand einen Lösungsansatz in VBA geben? Mit instr kann ich leider immer nur einen Vergleichsparameter mitgeben.
Danke

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String teilen bei mehreren Bedingungen
04.01.2005 11:13:26
Josef
Hallo Talcom! (heist du wirklich so?)
Vom Prinzip her so:

Sub teileString()
Dim myStr As String
Dim strTmp As String
Dim arrTmp As Variant
Dim n As Integer
myStr = "das ist ein test, WHERE anywhere ORDER BY me FROM you"
strTmp = Replace(Replace(Replace(Replace(myStr, ",", ";"), _
"WHERE", ";"), "ORDER BY", ";"), "FROM", ";")
arrTmp = Split(strTmp, ";")
For n = 0 To UBound(arrTmp)
Cells(1, n + 1) = Trim(arrTmp(n))
Next
End Sub

Gruß Sepp
AW: String teilen bei mehreren Bedingungen
04.01.2005 11:49:49
Talcom
Hallo Sepp,
soweit so gut, klappt schon gut, jedoch darf der Text aus dem Ursprung nicht ersetzt werden. Du ersetzt leider "WHERE" durch ein ";". Dies sollte nicht passieren, da ich weiterhin alles aus dem Ursprungsstring in der Ausgabe haben muß.
Hast Du dazu noch eine Idee?
Danke
Gruß Talcom
Anzeige
AW: String teilen bei mehreren Bedingungen
u_
Hallo,

Sub string_teilen()
Dim strg As String, tmp As String, i As Integer, j As Integer, z As Integer
z = 2
j = 1
strg = Range("a1")
For i = i To Len(strg)
tmp = Right(strg, Len(strg) - i + 1)
If tmp Like ",*" _
Or tmp Like "WHERE*" _
Or tmp Like "ORDER BY*" _
Or tmp Like "FROM*" Then
Cells(z, 1) = Mid(strg, j, i - j)
z = z + 1
j = i
End If
Next i
Cells(z, 1) = Mid(strg, j, i - j)
End Sub

Gruß
Sorry falsch Interpretiert!;-( Nimm u_'s Lösung !
04.01.2005 12:04:05
Josef
Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige