Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
864to868
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
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: String aus String Extrahieren

VBA: String aus String Extrahieren
24.04.2007 16:03:00
Chris
Hallo Liebe Forumsgemeinde!
Ich schreibe eine kleine VBA-Anwendung. Darin möchte ich einen String aus einem String bekommen, den ich aus einer Textdatei lese.
Der komplette String sieht so aus:
"Einheiten pro Kunde vom TYP(RAM1 F) und GROESSE(2)"
Wie schaffe ich es dass ich aus dieser Zeile den Typ "RAM1 F" und die Größe "2" jeweils in einen String bekomme? Also diesen einen String in 2 Stücke zerlege und nur die Werte erhalte, die in den runden Klammern stehen.
Vielleicht weiss jemand Rat!
Vielen Dank,
Gruss
Chris

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: String aus String Extrahieren
24.04.2007 16:25:00
Rudi
Hallo,

Sub tt()
Dim Text As String, x1 As Integer, x2 As Integer, txt1 As String, txt2 As String
Text = "Einheiten pro Kunde vom TYP(RAM1 F) und GROESSE(2)"
x1 = InStr(Text, "(")
x2 = InStr(Text, ")")
txt1 = Mid(Text, x1 + 1, x2 - x1 - 1)
x1 = InStr(x1 + 1, Text, "(")
x2 = InStr(x2 + 1, Text, ")")
txt2 = Mid(Text, x1 + 1, x2 - x1 - 1)
MsgBox txt1 & ", " & txt2
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: VBA: String aus String Extrahieren
24.04.2007 16:26:00
Andi
Hi,
zB so:

Sub t()
Dim myString As String
myString = "Einheiten pro Kunde vom TYP(RAM1 F) und GROESSE(2)"
MsgBox Mid(myString, InStr(myString, "(") + 1, InStr(myString, ")") - (InStr(myString, "(") + 1) _
)
MsgBox Mid(myString, InStrRev(myString, "(") + 1, InStrRev(myString, ")") - (InStrRev(myString,  _
"(") + 1))
End Sub


Schönen Gruß,
Andi

Anzeige
AW: VBA: String aus String Extrahieren
24.04.2007 16:53:00
Chris
Wow, funktioniert...
Vielen Dank an die Antwortschreiber!!
Leider habe ich entdeckt, dass der String auch mal "Stunden" oder "Dienstleistung" heissen kann.
Gibt es irgendwie eine Methode, dass ich das auslesen der 2 Strings absichern kann? D.h. wenn zum Beispiel keine Klammern im String enthalten sind?
Gruss
Chris

AW: VBA: String aus String Extrahieren
ransi
Hallo Chris
Teste mal dieses hier:
Option Explicit


Public Sub test()
Dim str As String
Dim Ausgabe As Variant
Dim SPL
str = "Einheiten pro Kunde vom TYP(RAM1 F) und GROESSE(2)"
str = Replace(str, "(", "")
str = Replace(str, ")", "")
SPL = Split(str, "TYP")
Ausgabe = Split(SPL(1), " und GROESSE")
MsgBox Ausgabe(0) & Chr(13) & Ausgabe(1)
End Sub

ransi
Anzeige

118 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