Text zerlägen Makro anpassen
05.10.2015 13:29:45
Becker
Hallo zusammen,
habe in Internet den Makro gefunden der zerlegt den Text aus Zelle A1 Spaltenweise von B1: .. zerlegt(Spaltenweise). Das funktioniert prima.
Folgede Lösung suche ich hier mit Euer Hilfe:
Wie könnte man den Makro so verändern dass er den Text aus A1 die einzelnen Wörter Trennung Zeilenweise macht? Am besten ab Zeile "ab A2 bis......"
Die Wort Trennung liegt bei leer und beim Komma , in diesn Makro.
Ich brächte noch dazu die Punkt "." als Trennung und Fett Format soll bleiben. Sieh Tabllenbalt "GESUCHTE LÖSUNG".
https://www.herber.de/bbs/user/100592.xlsm
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), ",")'Wie kann man ab hier den Code umändern
' dass die Wörter Zeilenweise ab "A2:...." reinkommen?
'und Fett formatierte Wörter sollen gleichen Format behalten
'schreiben
For y = 0 To UBound(Textteile)
Cells(Zeile, y + 2) = Textteile(y)
Next y
Next
End Sub
Hat jemand eine Idee?
Vielen Dank im Voraus!
Gruß
Daniel