Herbers Excel-Forum - das Archiv
Text aufteilen per VBA
- Text aufteilen per VBA von Daniel vom 13.12.2006 11:19:33
- AW: Text aufteilen per VBA - von Reinhard am 13.12.2006 11:33:52
- AW: Text aufteilen per VBA - von Daniel am 13.12.2006 11:37:29
- AW: Text aufteilen per VBA - von Daniel am 13.12.2006 11:37:29
- AW: Text aufteilen ohne VBA - von Rudi Maintaire am 13.12.2006 12:20:15
- AW: Text aufteilen per VBA - von Metman am 13.12.2006 15:55:10
 |
Betrifft: Text aufteilen per VBA
von: Daniel
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
 |
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..
|
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
|
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
|
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 SubErklä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
| |