VBA-Beispiel 099
mail schreiben
mail schreiben

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