Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
516to520
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
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String in Substrings teilen

String in Substrings teilen
19.11.2004 08:39:34
Vitali
Guten Morgen !
Ich habe folgendes Problem. Ich habe in einer Zelle einen Langen Text stehen. Sieht so aus: z.B Einsatztemperatur=50;Nennstrom=15;Pd=1 usw. Ich möchte aus diesem String Variablen Name und deren Wert extrahieren. Ich meine den String so lange durchsuchen bis er leer ist, und dabei prüffen:
wenn ";" mache substring dann suche in substring: wenn "=" dann links von "=" Variablenname, rechts von "=" Variablen Wert, suche weiter
P.S Ich bin noch nicht so gut in VBA, ich habe mehr Java zu tun!
Danke im voraus.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String in Substrings teilen
Harald
Hallo Vitali,
ein Ansatz zum Verfeinern:

Sub test()
Const Text = "Einsatztemperatur=50;Nennstrom=15;Pd=1"
Const Zuordnung = "="
Const Trenner = ";"
Const MaxVar = 10
Dim Varlist(MaxVar) As String
Dim Vallist(MaxVar) As String
Dim Varzahl As Integer
Dim x As String
Dim i As Integer
x = Text
Varzahl = 0
Do While Len(x) <> 0
Varlist(Varzahl) = Left(x, InStr(x, Zuordnung) - 1)
x = Right(x, Len(x) - InStr(x, Zuordnung))
If InStr(x, Trenner) <> 0 Then
Vallist(Varzahl) = Left(x, InStr(x, Trenner) - 1)
x = Right(x, Len(x) - InStr(x, Trenner))
Else
Vallist(Varzahl) = x
x = ""
End If
Varzahl = Varzahl + 1
Loop
For i = 0 To Varzahl
Debug.Print Varlist(i) & " = " & Vallist(i)
Next
Debug.Print "Anzahl Variablen: " & Varzahl
End Sub

Gruß Harald
Anzeige
AW: String in Substrings teilen
Worti
Hallo Vitali,
ab Excel 2000 gibt es die Funktion Split, die hier wohl nutzbringend angewendet werden kann. Da ich in der Firma nur Excel97 habe, hab ich den Teil Split des Codes allerdings nicht getestet:


Sub Splitten()
    
    Dim strText As String
    Dim Teilstrings As Variant
    Dim I As Long
    'Wenn dein Text zB in A1 steht
    strText = [A1]
    'hier gegebenenfalls die Hilfe zu Split bemühen 
    Teilstrings = Split(strText, ";")
    For I = 1 To UBound(Teilstrings)
        Cells(I, 2).Value = Mid(Teilstrings(I), 1, InStr(1, Teilstrings(I), "=") - 1)
        Cells(I, 3).Value = Mid(Teilstrings(I), InStr(1, Teilstrings(I), "=") + 1)
    Next I
    
End Sub


Worti
Anzeige
AW: String in Substrings teilen
Vitali
Danke Jungs!
Es funktioniert.

117 Forumthreads zu ähnlichen 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
Anzeige
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
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
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
VBA die letzten 4 Zeichen in einem String löschen
andreas

Hallo zusammen,
ich lese die Zelle "k12" als Variable ein und möchte dabei immer die letzten 4 Zeichen löschen
Modellname = Left(("k12"), Len("k12") - 4)
was ist falsch geschrieben?
Danke für die Hilfe
19.02.2010 11:58:31
Thread-ID: 1139731
4 Beiträge
String mit Sonderzeichen in Strin suchen (VBA)
MikeS

Hallo,
ich möchte einen großen String per VBA mit Zeilenumbrüchen versehen und ausgeben. Der Zeilenumbruch soll immer vor einem bestimmten Muster erstellt werden. Datum und Uhrzeit sind variabel!
Ich erhalte immer 0 als Ergebnis :-(
Private Sub Suche_Text() Dim lStart As Long Dim sT...
02.06.2010 15:21:34
Thread-ID: 1160043
7 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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
8
2
3
5
13
3
6
3
2
5
5
8
2
3
2
4
3
5
24
2
1
14
8
4