| VBA-Beispiel 099 | |
|
|
Textzeilen in Einzelteile zerlegen / Split |
|
|
Importierte Daten stehen oft komplett in einer Zelle. Das folgende Makro
zerlegt den Gesamttext in einzelne Teile. Trennzeichen ist in diesem Beispiel das Semikolon. Hinweis: die Funktion Split gibt es erst ab Excel 2000. Mit Excel 97 (Version 8.0) funktioniert dieses Makro deshalb nicht. |
|
|
Sub Text_zerlegen() Dim Zeile As Long, y As Long Dim Textteile For Zeile = 1 To 9 'Text zerlegen Trennzeichen ist das Semikolon Textteile = Split(Cells(Zeile, 1), ";") 'schreiben For y = 0 To UBound(Textteile) Cells(Zeile, y + 2) = Textteile(y) Next y Next End Sub |
|
|
Download: vba099.zip |
|
relevante Links:
|
|
| |