Text zerlegen
09.11.2015 21:36:47
Alex
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