Hallo Leute,
zunächst einmal vielen Dank an Andre werde das Programm im Laufe des Tages wohl noch testen können.
Zu Castor:
Du machst interessante Vorschläge, leider reichen meine Kenntnisse nicht aus dies auch nur annährend umzusetzen.
Hallo Andre,
habe gerade dein Makro geteste. Funktionier aber in einer Spalte immer nur für eine Zeile.
Teste das Ganze doch bitte nochmal durch.
Hallo Lore,
ja, jetzt wo Du es sagst. Ich muss die Variablen vor jedem Schleifendurchgang zurücksetzen - da brauch ich gar nicht in den code zu schauen ;). Das war der Haken mit dem Test von einem Satz :(
Die Zeile mit iPos=1 muss unter das erste For ... und der zugehörige Kommentar am besten auch ..
Code:
'Schleife ueber alle belegte Zellen in Spalte A
For Each oZelle In Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
'Startpos. festlegen
iPos = 1
'Zellinhalt uebernehmen und zerlegen
arrSatz = Split(oZelle, " ")
Hallo André,
das Programm funktioniert jetzt einwandfrei.
Vielen Dank für Deine Hilfe, es war genau das, wonach ich gesucht habe.
Ich wünsche Dir ein schönes Wochenende.