AW: Teil aus einem String lösen
10.09.2014 18:26:00
Adis
Hallo
ich habe mal nur zur Demo den Anfragetext mit Bindestrich versehen und zerlegt.
Ergebnis ist: "Zellen, den, Dank". Makro in normales Modul laden und ausprobieren.
In Const stehen der Text Bereich wo der Text steht, bei mir Tabelle1, Range "C1:C3"
Und die ZielSpalte (Hilfsspalte) wo das Ergebnis gelistet werden soll. Bei mir Spalte "A"
Hier der Probetext den ich benutzt habe.
Inhalte - in - verschiedenen - Zellen - besitzen - mehrere - Bindestriche.
Wie - kann - man - den - Teilstring - zwischen - dem - 3. - und - 4. - Bindestrich - herauslösen?
Für - Hilfen - besten - Dank - im - Voraus.
Const TxtBereich = "C1:C3" 'Hier nach dem Tesxt ihren Daten Bereich angeben
Const ZielSpalte = "A" 'Jede beliebige Spalte als Zielspalte waehlbar
Sub String_mitBindestrich_zerlegen()
Sheets("Tabelle1").Select
For Each Txt In Range(TxtBereich)
Label = Txt.Value 'Zell Variable laden + zerlegen
Label = Trim(Right(Label, Len(Label) - InStr(Label, "-")))
Label = Trim(Right(Label, Len(Label) - InStr(Label, "-")))
Label = Trim(Right(Label, Len(Label) - InStr(Label, "-")))
Label = Trim(Left(Label, InStr(Label, "-") - 1))
'Ergebnis in Zielspalte laden
Cells(i.Row, ZielSpalte) = Label
Next Txt
End Sub
Gruss Adis