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

Bestimmten bereich aus einem String per VBA separieren

Forumthread: Bestimmten bereich aus einem String per VBA separieren

Bestimmten bereich aus einem String per VBA separieren
04.05.2024 09:44:33
marspoki2
Hallo Profis,

ich habe mal eine Kurze Frage.

Ich möchte gerne aus einem String (Beispiel siehe unten) bestimmte Daten extrahieren. (Die Tabelle kommt mit ganz vielen Städten in diesem Format.)

ort-typ="Dorf" ort-name="Winterstein" webseite="https://www.waltershausen.de/unsere-stadt-und-ihre-ortsteile/winterstein/" ,Waltershausen-Winterstein

als Ergebnis möchte ich dann gern

a = Dorf
b= Winterstein
c = https://www.waltershausen.de/unsere-stadt-und-ihre-ortsteile/winterstein/
d= Waltershausen-Winterstein

haben.

Hat jemand eine Idee wie ich das mit VBA geschickt separieren kann, damit ich die gewünschten Daten in einzelne Strings laden kann?
Das Problem sind für mich die Anführungszeichen. Irgendwie komme ich da mit Right und Mid nicht klar.

vielen Dank für Hilfe
Sebastian


Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmten bereich aus einem String per VBA separieren
04.05.2024 10:04:34
{Boris}
Hi,

teste mal: 

Sub test()

Dim s As String, t As String, x As Long

Dim arr

s = Range("A1") 'da steht der String

arr = Split(s, """")

For x = 0 To UBound(arr)

    If InStr(1, arr(x), "=") = 0 Then t = t & x + 1 & ". " & Replace(arr(x), """", "") & Chr(10)

Next x

MsgBox t

End Sub


VG, Boris
Anzeige
AW: Bestimmten bereich aus einem String per VBA separieren
04.05.2024 10:06:47
Beverly
Hi Sebastian,

z.B. so (String steht in A1): 

Sub Trennen()

    Dim strString

    strString = Range("A1")

    strString = Split(strString, " ")

    Range("A2") = Application.Substitute(Application.Substitute(strString(0), "ort-typ=", ""), """", "")

    Range("B2") = Application.Substitute(Application.Substitute(strString(1), "ort-name=", ""), """", "")

    Range("C2") = Application.Substitute(Application.Substitute(strString(2), "webseite=", ""), """", "")

    Range("D2") = Mid(strString(3), 2)

End Sub


Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: Bestimmten bereich aus einem String per VBA separieren
04.05.2024 13:46:52
Daniel
Hi

Wenn immer alle Informationstypen da sind und in der selben Reihenfolge stehen: 

Txt =  dein Text

a = split(Txt, """")(1)

b = split(Txt, """")(3)

c = split(Txt, """")(5)

d = split(Txt, ",")(1)


Für d auch alternativ: 
d = Mid(split(Txt, """")(6), 2)


Gruß Daniel


Anzeige
Ohne VBA geht es auch
05.05.2024 12:37:22
RPP63
Moin! 
=LET(t;TEXTTEILEN(A1;"""");HSTAPELN(INDEX(t;{2.4.6});TEIL(INDEX(t;7);3;99)))

Gruß Ralf
AW: Bestimmten bereich aus einem String per VBA separieren
04.05.2024 11:33:23
marspoki2
Das funktioniert leider beides nicht so wie gewollt.

Ich würde jetzt mal die die "" mit Replace ersetzen. Der Code würde jetzt so aussehen damit ich schonmal den Ort bekomme. Allerdings bekomme ich damit ja alles was nach "ort-typ=" kommt. und ich möchte nur bis "ort-name=Winterstein" auslesen. 


Sub test2()

Dim s As String



s = "ort-typ=Dorf ort-name=Winterstein"



ort = Mid(s, InStr(s, "ort-typ=") + 8)  'ergibt Dorf ort-name=Winterstein



MsgBox ort



End Sub



Anzeige
AW: Bestimmten bereich aus einem String per VBA separieren
04.05.2024 12:01:41
{Boris}
Hi,

dieser Code 

Sub test()

Dim s As String, t As String, x As Long

Dim arr

s = Range("A1") 'da steht der String

arr = Split(s, """")

For x = 0 To UBound(arr)

    If InStr(1, arr(x), "=") = 0 Then t = t & Replace(arr(x), """", "") & Chr(10)

Next x

MsgBox t

End Sub


liefert als Ergebnis

Userbild

Nur der letzte Eintrag muss dann noch von den ersten beiden Zeichen "befreit" werden. Ansonsten liefert er das, was Du eingangs gewünscht hast.
Hat sich Dein Wunsch inzwischen geändert?

VG, Boris

Anzeige
AW: Bestimmten bereich aus einem String per VBA separieren
04.05.2024 12:12:39
marspoki2
Naja ich bastel das jetzt schon eine Weile . und dachte es ist einfacher die "" zu entfernen.

Du hast recht, ich bekomme das in der MsgBox gespiegelt.
Nur wie bekomme ich jetzt den Ort und den link in einzelne Variablen? Im Monent fällt mich nicht ein wie ich das jetzt trennen kann :-(

Vielleicht kannst du mir dabei noch helfen? Das wäre super.

Viele Grüße und Danke
Sebastian
Anzeige
AW: Bestimmten bereich aus einem String per VBA separieren
04.05.2024 12:21:59
marspoki2
habs rausbekommen, einfach die Arrays einzeln speichern :-)

Danke Danke Danke

s = Replace(arr(3), """", "")
l = Replace(arr(5), """", "")
g = Replace(arr(7), """", "")
t = Replace(arr(8), ",", "")
;

Forumthreads zu verwandten Themen

Teile eines Strings auslesen
Joachim

Hi,
wie kann ich denn einen Teil eines Strings auf dem Sheet "data" in der Zelle B10 auslesen. und zwar folgender massen:
Die Einträge könnten so aussehen:
GBm123456
ATU12478
GM123587
Dabei interessieren mich aber nur die Buchstaben, ABER der wahrscheinlich Hauptproblem:...
05.12.2008 09:10:18
Thread-ID: 1030353
6 Beiträge
VBA: String+TAB an inaktives Windowsfenster senden
Melanie

Hallo allerseits,
ich moechte aus Excel heraus mit VBA code einen String (z.b "Hallo") + TAB (oder ENTER) an ein 'fremdes' WindowsapplicationFenster schicken (keine Officeanwendung), wobei das Fensterhandle (oder auch das entsprechende TextFeldHandle bekannt sind).
Allerdings soll die...
09.12.2008 08:37:52
Thread-ID: 1031241
9 Beiträge
Text aus Text extrahieren
Eddie

Guten morgen an ALLE :-)
Ich will gerne aus folgenden Text einen bestimmten text extrahieren und Ihn dann in einer anderen Zelle anders zusammenbauen
In A1 steht: DasIstEin01Test12345Name
In B1 soll stehen Huhu01Test123 Start
Der Text ändert sich immer, aber der Anfang DasIst...
07.01.2009 08:42:07
Thread-ID: 1037441
3 Beiträge
Anzeige
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
Anzeige
Formel Textteilstring dynamisch extrahieren
Horst_H

Hallo,
seit Stunden probiere ich bislang leider ergebnislos eine Formel zu erstellen:
Quelle:
"S2001W.rar;http://www.netload.in/dateigTTIDfQowZ/S2001W.rar.htm;93.32
MB;0;12.02.2009"
Ergebnis soll sein der string zwischen dem 1. und dem 2. Semikolon, weil die Testlänge unters...
19.02.2009 13:50:00
Thread-ID: 1052127
6 Beiträge
Userform soll Teil eines Strings in Spalte suchen
Jaffi

Hallo liebe Mitstreiter,
nun habe ich mal wieder ein Problem welches ich nicht alleine lösen kann :(
Ich möchte mithilfe einer UserFom und einer For-Schleife 3 Buchstaben bzw, Zahlen oder beides in einer Spalte suchen. Ich gebe also 3 Zeichen in die Textbox ein und die Prozedur soll nun...
11.11.2009 08:39:13
Thread-ID: 1116052
14 Beiträge
Teilstücke aus TextString extrahieren
chn01

Ich will in einer UserForm TextBox eine Text String einfügen, aus dem Textestücke extrahiert werden und die Teilstücke einzelnen Variablen zu zuwiesen.
TextString Beispiel mit Trennzeichen Tab:
Profil Text 174700041 2010 0,10% 5,16 5,12 0,00100
Das Ergebnis sollte dann so aussehen:...
04.11.2010 14:25:56
Thread-ID: 1185187
4 Beiträge
VBA: Verkettete Strings in neues Excel File
Balu

Hallo Forum,
Für jeden der a bisserl VBA kann ist das wohl ne einfache Sache aber ich bin einfach zu blöd für.
Folgendes.
In Spalte A stehen Strings die ich mit einem , verkette
In Spalte B stehen Strings die ich mit einem ; verkette
In Spalte B stehen Strings die ich mit ei...
05.11.2010 07:19:18
Thread-ID: 1185207
3 Beiträge
Länge eines gesuchten Teil eines Strings bestimmen
Holger,

Hallo liebes Forum,
langer Titel für mein Problem.
In meinem string SOMMER;HERBST;WINTER kann es auch ein Others geben
z.B SOMMER;HERBST;;WINTER oder SOMMER;HERBST;Others,WINTER.
Others kann s also in verschiedenen Schreibweisen geben (aber es kommt nur einmal vor), daher habe i...
14.02.2011 15:39:42
Thread-ID: 1200725
6 Beiträge
Mit regexp text aus Html extrahieren.
Reinhard

Hallo Wissende,
im Inernet wimmelt es von Pattern. Aber ich bin bislang unfähig die auf meinen Wunsch umzuschreiben :-(
Es liegt Htlm vor mit vielen Einträgen dieser Art:
<a href="/app/article/show/6360846"<[Team] Kommentierfunktion Facebook
</a<<span class="grey"...
14.03.2011 17:53:29
Thread-ID: 1205635
9 Beiträge
Anzeige
Per VBA , in . ändern in ersten 7-String-Zeichen
TommiH

Moin,
gibt es eine einfache Möglichkeit (einfacher als per left/mid/instr. oder split) um in den ersten 7 Zeichen einer Zelle die Kommas in Punkte zu ändern? Und das per VBA-Code?
Tommi
04.07.2011 15:34:05
Thread-ID: 1220870
3 Beiträge
Text aus Daten extrahieren
Wolfango

Hallo zusammen,
in einer einzigen Spalte stehen Einträge in der folgenden Struktur:
Bsp:
ABB, QU132M4AT,1430UPM, 7,5KW,B51
SAEW, RF63DT80N4TF, 1380/21UPM, 0,75KW,V111
ELECTRODRIVES, D132SD, 2870UPM, 5,5KW,V1234
Also immer jeweils 5 Begriffe, jeweils durch ein Komma getr...
12.03.2012 11:12:16
Thread-ID: 1254634
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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