Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text zerlegen

Forumthread: Text zerlegen

Text zerlegen
09.11.2015 21:36:47
Alex
Hallo zusammen,
ich nutze folgenden code, um einen Text zu zerlegen und in entsprechender Spalte einfüge.
Der Text sieht z.b. so aus F:\RTF-Foto\2015-50_KUF-RRR0_Foto2_964145-00_734074.jpg
Kann man diesen Code auch vereinfachen ?
Vielen Dank im Voraus.
Option Explicit
Sub Textzerlegen()
Dim Zeile As Long, y, x As Long
Dim textteile
For Zeile = 1 To 60000
textteile = Split(Cells(Zeile, 1), "\")
'schreiben
For y = 0 To UBound(textteile)
Cells(Zeile, y + 12) = textteile(y)
Next y
Next
For Zeile = 1 To 60000
textteile = Split(Cells(Zeile, 4), "_")
'schreiben
For y = 0 To UBound(textteile)
Cells(Zeile, y + 5) = textteile(y)
Next y
Next
For Zeile = 1 To 60000
textteile = Split(Cells(Zeile, 3), " ")
'schreiben
For y = 0 To UBound(textteile)
Cells(Zeile, y + 24) = textteile(y)
Next y
Next
For Zeile = 1 To 60000
textteile = Split(Cells(Zeile, 5), "-")
'schreiben
For y = 0 To UBound(textteile)
Cells(Zeile, y + 28) = textteile(y)
Next y
Next
For Zeile = 1 To 60000
textteile = Split(Cells(Zeile, 8), "-")
'schreiben
For y = 0 To UBound(textteile)
Cells(Zeile, y + 34) = textteile(y)
Next y
Next
For Zeile = 1 To 60000
textteile = Split(Cells(Zeile, 10), ".")
'schreiben
For y = 0 To UBound(textteile)
Cells(Zeile, y + 36) = textteile(y)
Next y
Next
End Sub

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text zerlegen
09.11.2015 22:18:04
Daniel
Hi
nutze Daten - Datentools - Text in Spalten.
dieser Code: 
For Zeile = 1 To 60000
textteile = Split(Cells(Zeile, 1), "\")
'schreiben
For y = 0 To UBound(textteile)
Cells(Zeile, y + 12) = textteile(y)
Next y
Next
läst sich dadurch ersetzen:
Columns(1).TextToColumns _
Destination:=Range("L1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, Comma:=False, Space:=False, _
Other:=True, OtherChar:="\"
für die anderen Schleifen dann analog.
anpassen musst du neben dem Columns(1) noch die Destination (die Spalte ab der eingefügt wird)
und das Trennzeichen bei OtherChar.
Gruß Daniel
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige