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

String zerschneiden in einzelne Variable

Forumthread: String zerschneiden in einzelne Variable

String zerschneiden in einzelne Variable
16.10.2024 05:32:33
Sebastian
Hallo Profis,

ich lese eine Textdatei in Excel ein, welche z.B folgende Zeilen enthält. Wie schaffe ich es es die Daten in einzelne Variablen zu lesen? Die Fett gedruckten Bereiche sind immer in jeder Zeile da, nur die Daten dazwischen sind eben anders.

Beispiel:
stadt-name=Berlin link=www.berlin.de Einwohner-Anzahl=3645000 2024 OK

Es sollen dann diese Daten einzeln in den VBA Variablen stehen:

stadt = Berlin
link = www.berlin.de
einwohner = 3645000
jahr = 2024
status = OK

Hat jemand eine Idee wie ich das so aufdröseln kann?

Vielen Dank schonmal für Eure Hilfe :-)
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String zerschneiden in einzelne Variable
16.10.2024 08:23:53
MCO
Moin!

Diese Sub macht was du willst: 

Sub aufdröseln()

    

    ReDim Var2_arr(99)

    txt = "stadt-name=Berlin link=www.berlin.de Einwohner-Anzahl=3645000 2024 OK"

    

    var1_arr = Split(txt, " ") 'nach leerzeichen trennen

    

    For i = 0 To UBound(var1_arr)

        If InStr(var1_arr(i), "=") > 0 Then 'nach = trennen, wenn vorhanden

            Var2_arr(i) = Split(var1_arr(i), "=")(1)

        Else

            Var2_arr(i) = var1_arr(i)

        End If

    Next i

    ReDim Preserve Var2_arr(i - 1)

    

    Var_nam_arr = Array("stadt", "link", "einwohner", "jahr", "status") 'Variable festlegen

    

    For i = 0 To UBound(Var2_arr)

        Var2_arr(i) = Var_nam_arr(i) & " = " & Var2_arr(i) 'Variable zuordnen

        txt_final = txt_final & Var2_arr(i) & Chr(10) 'Text Datensatz zusammenstellen

    Next i

    

    MsgBox txt_final

End Sub


Gruß, MCO
Anzeige
AW: String zerschneiden in einzelne Variable
16.10.2024 09:37:10
Alwin Weisangler
Hallo Sebastian,

in Variable "Ausgabe" aufgeteilt sollte es so ausreichen: 



Sub Aufteilen()

    Dim Ausgabe, str$: str = "stadt-name=Berlin link=www.berlin.de Einwohner-Anzahl=3645000 2024 OK "

    str = Replace(str, " ", "###")

    str = Left(str, Len(str) - 3)

    Ausgabe = Split(Trim(Replace(Replace(Replace(str, "stadt-name=", "Stadt = "), "link=", "Link = "), "Einwohner-Anzahl=", "Einwohner = ")), "###")

    Ausgabe(3) = "Jahr = " & Ausgabe(3)

    Ausgabe(4) = "Status = " & Ausgabe(4)

    str = ""

End Sub

Diese kannst du dann wo auch immer hin übergeben.

Gruß Uwe
Anzeige
AW: String zerschneiden in einzelne Variable
16.10.2024 11:40:18
daniel
HI

noch ne variante.

sollte der String immer gleich aufgebaut sein (Inhalt und Reihenfolge), gehts so recht einfach: 
a = "stadt-name=Berlin link=www.berlin.de Einwohner-Anzahl=3645000 2024 OK"

a = replace(a, "=", " ")

b = split(a, " ")

stadt = b(1)

link = b(3)

Einwohner = b(5)

Jahr = b(6)

Status = b(7)


wenn es sein kann, dass die Informationen nicht immer in der gleichen Reihenfolge stehen oder Informationen auch ganz fehlen können, dann so mit Suche des jeweiligen kenners:
Achtung: i muss als Variant deklariert werden, damit des den Fehlerwert aufnehmen kann, falls der Suchwert nicht gefunden wird. 
a = "stadt-name=Berlin link=www.berlin.de Einwohner-Anzahl=3645000 2024 OK"

a = replace(a, "=", " ")

b = split(a, " ")



stadt = ""

i = application.Match("stadt-name", b, 0)

if isnumeric(i) then stadt = b(i + 1)



link = ""

i = application.Match("link", b, 0)

if isnumeric(i) then link = b(i + 1)



Einwohner = 0

i = application.Match("Einwohner-Anzahl", b, 0)

if isnumeric(i) then Einwohner = b(i + 1)



Jahr = b(ubound(b) - 1)

Status = b(ubound(b))


Anzeige
Du könntest auch...
16.10.2024 12:19:52
Case
Moin Sebastian, :-)

... alles in Power Query lösen (falls VBA nur eine Notnagel für dich ist): ;-)
https://www.herber.de/bbs/user/172918.xlsx

Man kann auch das einlesen der Textdatei gleich in PQ erledigen und dann aufteilen. ;-)

Servus
Case
Anzeige
AW: String zerschneiden in einzelne Variable
16.10.2024 09:40:13
Sebastian
Alle Lösungen funktionieren - Vielen Dank an euch!
AW: String zerschneiden in einzelne Variable
16.10.2024 08:20:14
Sebastian
Hallo Sigi,

vielen Dank :-) das ist die Lösung für die Tabelle selbst - aber wie kann ich das in VBA realisieren?

Außerdem muss ich 2024 und das OK auch noch trennen :-)
;

Forumthreads zu verwandten Themen

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
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
Kurze Variablendeklaration in VBA?
Gunnar

Hi Leute,
gibt es in VBA keine andere Möglichkeit, Variable zu deklarieren außer
Dim abc As Integer, abd As Integer abe As Integer
usw.? Brauch über 100 Variable, das ist mühselig.
Typenkennzeichen dürfen übrigens nicht verwendet werden, falls das wichtig ist.
Grüße Gunnar...
28.01.2009 18:36:11
Thread-ID: 1044672
5 Beiträge
VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
String finden und an variable übergeben
Peter

Hallöchen zusammen,
nachdem ich nun schon ne halbe Stunde suche und nicht fündig geworden bin, versuche ich die Frage einfach mal in den Raum zu stellen. Es mir hier schon ein paarmal super geholfen worden.
Voraussetzung:
Es gibt eine Tabelle, in der in Spalte "E" entweder ein Strin...
20.05.2009 19:20:33
Thread-ID: 1076477
5 Beiträge
Anzeige
Variable Liste in VBA
Diana

Liebes Forum,
ich habe ein Problem. Ich lese mit einem VBA-Makro Messwerte aus. Diese Messwerte werden über einen Namen auf einem anderen Rechner angesprochen. Derzeit gebe ich diese Namen (Adressen) direkt in das Makro ein.
strSQL = "SELECT k055z02_0.Zeit, k055z02_0.A00100001, ..., .....
14.08.2009 14:59:47
Thread-ID: 1096000
4 Beiträge
Anzeige
per VBA Textvariable nach Word
ptonka

Hallo zusammen,
folgendes Problem:
Ich stelle per VBA aus mehreren Zelleinträgen in einer Tabelle einen langen String zusammen. Dieser wird der Variable "Langtext" zugewiesen.
Nun soll dieser Text aus der Variable Langtext in ein leeres Worddokument (.doc oder .txt-File) an den Anfa...
01.01.1970 00:00:00
Thread-ID: 1106384
3 Beiträge
Summe mit Variable in VBA
chrissey

Hallo Leut,
hab folgende Zeile in VBA die mir in der Zelle (LeZe, 10) eine Summe bilden soll:
'Worksheets("Auswertung").Cells(LeZe, 10).Formula = "=SUM(R[-5]C:R[-1]C)"
jetzt möchte ich aber die Länge der Summe durch eine Variable ersetzen,
also
-5 durch eine Variable z.B.: -...
08.10.2009 11:16:57
Thread-ID: 1108126
4 Beiträge
Anzeige
GÜltigkeit mit Variable in VBA
Andre

Hallo,
ich habe ein Anwendungs oder Referenzobjektiven Fehler. Bei folgender Formel. Kann mir da jemand helfen?
Dim strFormel As String
For v = nTabelle1ZeileSTART To Zeilen
strFormel = "=INDIREKT($O" & v & ")"
With Cells(v, nTabelle1SpalteFBFunktion).Validation
...
09.10.2009 10:50:11
Thread-ID: 1108490
17 Beiträge
variable Zellauswahl in VBA
L

Hallo,
habe mehrere Tabellen mit unterschiedlich vielen Zeilen aber immer nur 8 Spalten.
Im Makro habe ich die Tastenkombination
Shift+StRG+Pfeil runter
in Spalte C benutzt, damit nur bis zum Ende der Einträge markiert wird. So habe ich die Zellen markiert, in denen ich dara...
02.02.2010 14:59:00
Thread-ID: 1135122
3 Beiträge
Anzeige
VBA: Text in Spalten - variable Spalte als Text
Michael

Hallo,
ich habe folgendes Problem:
Unser ERP System exportiert CSV Dateien, die ich weiter bearbeiten Möchte. Erster Schritt ist die Trennung der Werte über Text in Spalten. Funktioniert soweit ganz gut. Jedoch ergibt sich das Probelm, dass bei einigen Daten Nullen vorneanstehen. Diese...
30.03.2010 15:45:21
Thread-ID: 1149392
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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