Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
908to912
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
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

[Text] aus String extrahieren

[Text] aus String extrahieren
29.09.2007 12:47:30
{Boris}
Hi Leute,
ich möchte per VBA aus einem String die Textteile in [eckigen Klammern] extrahieren.
Beispielstring:
"Don't [Ab]claim that love you [Eb]never let me [Bbm]feel"
Daraus benötige ich ein Array, das aus den Elementen [Ab], [Eb] und [Bbm] besteht.
Das Ziel ist es, die einzelnen Elemente zu verändern (in einem neuen Array) und an exakt die selbe Stelle im String zurück zu schreiben (das bekomme ich dann selbst hin - mit Replace String, "altes Element", "neues Element").
Gibt es eine Möglichkeit, das zu bewerkstelligen, ohne in einer Schleife jedes einzelne Zeichen zu durchlaufen und mit InStr, Mid und Konsorten zu arbeiten?
Wie stelle ich das am Besten an?
Grüße Boris

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Meine Schleifenlösung sieht wie folgt aus
29.09.2007 13:05:50
{Boris}
Hi Leute,

Option Explicit
Sub test()
Dim S As String, arr()
Dim x As Integer, y As Integer, i As Integer
S = "Don't [Ab]claim that love you [Eb]never let me [Bbm]feel"
For x = 1 To Len(S)
If Mid(S, x, 1) = "[" Then
For y = x To Len(S)
If Mid(S, y, 1) = "]" Then
ReDim Preserve arr(i)
arr(i) = Mid(S, x, y - x + 1)
i = i + 1
Exit For
End If
Next y
End If
Next x
For x = 0 To UBound(arr)
MsgBox arr(x)
Next x
End Sub


Wie gesagt - geht es auch ohne die Schleife? Wenn ja: Wie?
Grüße Boris

AW: [Text] aus String extrahieren
29.09.2007 13:10:54
Daniel
Hi
mit ein paar Tricks kannst du den Text in über die SPLIT-Funktion in ein passendes Array-Feld zerlegen.
(das Verwendete Trennzeichen (hier "+") sollte im Text ansonsten nicht vorkommen)
dann brauchst du noch ne 2. Array-Variable, in die du alle Werte einliest, die mit [ beginnen:

Sub test()
Dim a As String, msgText As String
Dim b() As String
Dim c() As String
Dim i As Long, j As Long
a = "Don't [Ab]claim that love you [Eb]never let me [Bbm]feel"
a = Replace(a, "[", "+[")
a = Replace(a, "]", "]+")
b = Split(a, "+")
For i = 0 To UBound(b)
If Left(b(i), 1) = "[" Then
ReDim Preserve c(j)
c(j) = b(i)
j = j + 1
End If
Next
For i = 0 To UBound(c)
msgText = msgText & Chr(10) & c(i)
Next
MsgBox "die Array-Variable C enthält folgende Elemente:" & msgText
End Sub


Gruß, Daniel

Anzeige
Besten Dank
29.09.2007 14:10:59
{Boris}
Hi Daniel,
gute Idee, die Trennzeichen eindeutig zu machen. Da bin ich grad nicht drauf gekommen ;-) Das reduziert die Anzahl der Schleifendurchläufe bereits enorm.
Vielen Dank und
Grüße Boris

AW: Besten Dank
29.09.2007 14:37:25
Gerd
Hallo Boris,
oder so:

Sub test()
Dim NeueTexte As Variant, strText As String, i As Integer
NeueTexte = Array("Text1", "Text2", "Text3")
strText = "Don't [Ab]claim that love you [Eb]never let me [Bbm]feel"
For i = 0 To 2
strText = Replace(strText, Split(Split(strText, "[")(i + 1), "]")(0), NeueTexte(i), 1, 1, 1)
Next
MsgBox strText
End Sub


Gruß Gerd

Anzeige
Das muss ich erst mal nachvollziehen...
29.09.2007 18:06:00
{Boris}
Hi Gerd,
...wie Du da die Replace-und die Split-Funktion gebrauchst. Ich melde mich wieder.
Danke und
Grüße Boris

Auchnochmeinensenfdazu
29.09.2007 15:08:58
Nepumuk
Hi Boris,
noch ne Möglichkeit:
Public Sub Test()
    Dim objRegEx As Object, objMatch As Object, objMatchCollection As Object
    Dim strText As String
    strText = "Don't [Ab]claim that love you [Eb]never let me [Bbm]feel"
    Set objRegEx = CreateObject("VBScript.RegExp")
    With objRegEx
        .MultiLine = True
        .Global = True
        .IgnoreCase = True
        .Pattern = "\[\w*\]"
        Set objMatchCollection = .Execute(strText)
    End With
    For Each objMatch In objMatchCollection
        MsgBox "Wert: " & objMatch.Value & " Position: " & objMatch.FirstIndex & " Länge: " & objMatch.Length
    Next
End Sub

Gruß
Nepumuk

Anzeige
Darauf hatte ich (insgeheim) gehofft...
29.09.2007 16:35:11
{Boris}
Hi Max,
...denn dass es mit den RegExps (wovon ich gar keine Ahnung habe) geht, hatte ich schon vermutet.
Und natürlich funktioniert Dein Beispiel einwandfrei.
Besten Dank!
Grüße Boris
(muss mich wirklich mal langsam mit den RegExps beschäftigen...)

AW: Split(Split..
29.09.2007 23:05:00
Gerd
Hi Boris,
ich hatte unterstellt, dass Du sofort in den Gesamtstring zurückschreiben möchtest.
Lasse das Makro über ein leeres Sheet laufen.
(Ausgaben von innen nach außen, die Replace- 

Function u. die weiteren Argumente der Splitfunktion habe ich weggelassen.)



Sub test2()
Dim strText As String
strText = "Don't [Ab]claim that love you [Eb]never let me [Bbm]feel"
Cells(1, 1) = "Split(strText," & """[""" & ")(0)"
Cells(1, 3) = Split(strText, "[")(0)
Cells(2, 1) = "Split(strText," & """[""" & ")(1)"
Cells(2, 3) = Split(strText, "[")(1)
Cells(3, 1) = "Split(strText," & """[""" & ")(2)"
Cells(3, 3) = Split(strText, "[")(2)
Cells(4, 1) = "Split(strText," & """[""" & ")(3)"
Cells(4, 3) = Split(strText, "[")(3)
Cells(6, 1) = "Split(Split(strText," & """[""" & ")(0)," & """]""" & " )(0)"
Cells(6, 4) = Split(Split(strText, "[")(0), "]")(0)
Cells(7, 1) = "Split(Split(strText," & """[""" & ")(1)," & """]""" & " )(0)"
Cells(7, 4) = Split(Split(strText, "[")(1), "]")(0)
Cells(8, 1) = "Split(Split(strText," & """[""" & ")(2)," & """]""" & " )(0)"
Cells(8, 4) = Split(Split(strText, "[")(2), "]")(0)
Cells(9, 1) = "Split(Split(strText," & """[""" & ")(3)," & """]""" & " )(0)"
Cells(9, 4) = Split(Split(strText, "[")(3), "]")(0)
End Sub



Gruß Gerd
Anzeige
Yepp - alles klar...
29.09.2007 23:08:00
{Boris}
Hi Gerd,
...hab´s kapiert. Danke nochmals!
Grüße Boris

305 Forumthreads zu ähnlichen Themen

Stundenwert zwischen zwei Tagen
Huber

Hallo,
folgendes Problem.
Möchte den Stundenwert zwischen zwei Tagen (ohne Datum) wissen.
Beispiel: Zelle A1: Samstag 06:00 Zelle B1: Sonntag 12:00 C1: 30
Danke im voraus...
22.08.2008 08:11:00
Thread-ID: 1003710
13 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
Text mit Zahl in neue Zelle auslesen
Lemmi

Hallo zusammen,
ich habe einen Text ais einer Datenbank den ich Teilweise auslesen möchte.
z. B. Text
A) in A1 : Büro ABC Hamburg 1256 zu Hause
B) in A2 : Büro Berlin 12345 in Straße XXX
Nun möchte ich das Wort Hamburg in B1 auslesen! soweit hat man mir bereits vor...
16.09.2009 21:47:50
Thread-ID: 1103375
17 Beiträge
Anzeige
Textboxinhalt aus anderer Exceldatei auslesen
Urmila

Hallo alle,
zwar weiß ich wie man in einer Zelle den Inhalt aus y-beliebigen Excel Datei eingeben kann, doch ich suche die Möglichkeit, den Inhalt von Zelle B1-B10 in den Textboxen TextBox1-TextBox10 anzeigen zu lassen. Die Datei, worin die Werte stehen, ist C:/Test/Versuch.xls.
Danke u...
05.10.2009 09:17:20
Thread-ID: 1107205
4 Beiträge
noch mal: Werte zwischen zwei Zahlen zählen
Bernd

Guten Morgen zusammen,
mein Problem vom Freitag ist leider noch nicht ganz gelöst :-((
Die Hilfe von "WF" hat mich schon ein ganzes Stück weitergebracht, aber leider hat die Formel ein Problem mit der Berechnung von negativen Werten
'=SUMMENPRODUKT(('Grunddaten berechnet'!$R7:$R4000...
30.11.2009 08:57:22
Thread-ID: 1120929
6 Beiträge
Text zwischen zwei Zeichen
Uwe

Guten Abend an Alle,
gibt es eine Formel um ein Wort unterschiedlicher Länge zwischen zwei eindeutigen Zeichen zu extrahieren?
z.b.
Applause
oder
Gran Move
benötigt würde nur das Wort Applause und Gran Move
Vorab schon mal Dank für die Hilfe!
Gruß Uwe
08.01.2010 18:53:49
Thread-ID: 1128368
6 Beiträge
Auslesen einer Textbox in einer Userform | Herbers Excel-Forum
Bernd Cramer
Hallo,
ich benutze in einer Userform eine mehrzeiliege Textbox.
Diese soll Zeile für Zeile per VBA Ausgelesen werden und in ein Excel-Blatt eingetragen werden.
Vor einiger Zeit hatte mir ein anderer Forum teilnehmer folgenden Tip gegeben.
With tbgrund1
.SetFocus
tbz = 0 'Di...
27.01.2010 17:04:25
Thread-ID: 1133524
4 Beiträge
Tage zwischen zwei Datümern auswerten
Reinhard

Hallo Wissende,
in A ist der Starttermin, in C der Endtermin. Beide Spalten benutzerdefiniert so formatiert: TTT, TT.MM.JJJJ
Es können da ja 0-X Tage dazwischenliegen, diese Zahl der dazwischenliegenden Tage möchte ich ermitteln.
Mit Datediff-1 erhalte ich diese Zahl. Diese will ich...
05.03.2010 17:05:03
Thread-ID: 1143798
13 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
12
5
5
16
2
3
5
5
3
12
8
4
1
2
7
3
2
6
7
1
2
7
13
13
1