Finden von Ausdrücken und Ergänzung der Markierung

[LoreHaubrich]

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.

[LoreHaubrich]

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.

[schauan]

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, " ")

[LoreHaubrich]

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.