Herbers Excel-Forum - das Archiv

Text aufteilen per VBA

Bild

Betrifft: Text aufteilen per VBA
von: Daniel

Geschrieben am: 13.12.2006 11:19:33
Hallo,
ich will Text aus Zellen in mehrere Zellen per VBA aufteilen.
Der Text hat die Form: ab23c 34g GSe
Es sind immer alphanumerische Zeichenfolgen in unbestimmter Länge, die voneinander durch Space getrennt sind.
Gerne würde ich das in der Art aufteilen, dass der 1. Teil = Spalte A, 2. Teile = Spalte B etc.
Geht das? Und wenn ja: Wie stellt man das an?
Grüße,
Daniel
Bild

Betrifft: AW: Text aufteilen per VBA
von: Reinhard

Geschrieben am: 13.12.2006 11:33:52
Hi Daniel,
Option Explicit
Sub trenn()
Dim Zei, SplitWert
'On Error Resume Next 'falls Leerzellen in A
For Zei = 1 To Cells(Rows.Count, 1).End(xlUp).Row
SplitWert = Split(Cells(Zei, 1))
Range(Cells(Zei, 1), Cells(Zei, UBound(SplitWert) + 1)) = SplitWert
Next Zei
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Bild

Betrifft: AW: Text aufteilen per VBA
von: Daniel
Geschrieben am: 13.12.2006 11:37:29
Hallo Reinhard,
kannst du den Code kurz erklären.
Ich würde das gerne selbst schaffen in bestehende Makros einzubinden.
Danke!
Daniel
Bild

Betrifft: AW: Text aufteilen ohne VBA
von: Rudi Maintaire
Geschrieben am: 13.12.2006 12:20:15
Hallo,
Daten-Text in Spalten.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Bild

Betrifft: AW: Text aufteilen per VBA
von: Metman

Geschrieben am: 13.12.2006 15:55:10
Wenns ganz einfach sein soll
Sub texttocolumns()
Dim Wert
For Each Wert In Worksheets("Tabelle1").Columns("A")
Wert.texttocolumns DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, Space:=True
Next Wert
End Sub

Erklärung : Für jede Zelle (Wert) in der Spalte A im Tabellenblatt Tabelle1 benutzt er hier die TextToColumns-Funktion. Realtiv simpel.
Rückmeldung wäre nett.
gruß
metman
 Bild
Excel-Beispiele zum Thema "Text aufteilen per VBA"
Zeichenfolge aufteilen In eine InputBox eingegebene Daten in Elemente aufteilen
Text aus Textbox in Zellen aufteilen Telefonnummern nach Vorwahl und Anschluß aufteilen
Hyperlink aufteilen Zeichenfolge in Ziffern und Buchstaben aufteilen
Zelleingaben in Gruppen von 5 Zeichen aufteilen Aufteilen der Arbeitsblätter in neue Arbeitsmappen
Aufteilen einer Tabelle auf mehrere Arbeitsblätter