Office: Satz aufteilen in Array

Hallo zusammen,
mein Anliegen ist es einen Satz aufzuteilen in ein Array und dann dieses Array durchzugehen Wort für Wort und einen Vergleich mit einem anderen vorgegebenen Wort anzustellen. Hab mir schon die Funktion split angeschaut, aber das Problem ist, dass in meinem Satz noch Sonderzeichen vorkommen wie "(;: )". Ich kennen mich mit VBA nicht gut genug aus und deswegen meine Frage. Kann ich diese Sonderzeichen durch Komma ersetzen lassen, auch wenn ich die genaue Position der Sonderzeichen nicht kenne und dann darauf die Split-Funktion anwenden um ein Array zu erhalten nur mit einzelnen Worten?
Code:

Habe bisher diesen Code soweit und weiß noch nicht so recht weiter. Vielleicht kann man auch mit der Funktion Len was anfangen*confused.gif* und als Begrenzung die Sonderzeichen und Kommata vorgeben und anschließend mit left oder right die Worte quasi rausschreiben*confused.gif*

Danke schonmal im Voraus und Gruß,
FHACStudent

:)

 

Wie sieht so ein Satz aus?

 

(Einkaufsliste); Früchte: Bananen Äpfel Birnen Melonen Kirschen

So in der Art würde ein Satz aussehen.
Und dann hätte ich das Wort Birnen zum Beispiel und dann soll jedes der einzelnen Worte aus dem Satz mit eben Birnen abgeglichen werden.
Ich weiß es ist einfacher Birnen in dem Satz zu suchen, aber es entspricht nicht der Anforderung, die ich habe.

 

Moin

z.B. nach folgendem Prinzip lassen sich mehrere Sonderzeichen ersetzen
Code:

Gruß Carsten

 

Code:

 

Moin!
Ein anderer Ansatz, der feststellt, das wievielte Wort Birnen im Satz ist:
Code:

Gruß Ralf

 

Danke euch schonmal soweit. Bin dabei es anzupassen. RPP dein Ansatz klappt mit dem fest vorgegebenen Satz, aber nicht wenn ich den Bezug auf eine Zeile in der Exceltabelle herstelle.
xlph dein Ansatz liefert nur ein BoolWert, aber ich möchte dann noch weiter machen falls ein true rauskommt und wenn ich msgbox entferne kommen Fehler auf. Und wenn ausversehen die Worte ohne Leerzeichen geschrieben wurden findet er da Wort nicht.

 

Ach was! *rolleyes.gif* *cool.gif*
Ich nehme doch an, dass Du ZELLE und nicht ZEILE meinst.
Code:

Gruß Ralf

 

Ja, entschuldige. Habe mich verschrieben.

Gruß,
FHACStudent

 

Du solltest vielleicht mal eine Datei mit einer vernünftigen Datenbasis einstellen.
Aber eins ist klar:
Wenn Leerzeichen "vergessen" wurden, kann auch das beste Programm nichts machen.
(zumindest nicht in Bezug auf einzelne Worte im Array)
Also:
Beispieldatei mit Wunschergebnis!

Gruß Ralf

 

Code:

Das wäre mein Code soweit, damit es vielleicht deutlicher wird, was ich vorhabe.
Ich erhalte den Laufzeitfehler 1004 an der rot markierten Stelle. Wo könnte sich ein Fehler eingeschlichen haben?

 

lad mal die Datei hoch.

Und beschreibe was du vor hast.

Der Code sieht recht abenteuerlich aus.*wink.gif*

 

Habe mal beide Dateien in den Anhang gepackt. Sie sollen unabhängig von einander bearbeitet werden. Im Ausgangsstring wird dann ein Satz stehen und dann soll die andere Mappe Zeile für Zeile in der 1. Spalte die Worte durchgehen und schauen, ob eines der Worte aus dem Satz diesen einzelnen Worten entspricht. Es soll also nicht die Liste aus der Mappe mit den einzelnen Worten Wort für Wort durchgegangen werden und dann mit dem Satz verglichen werden sondern genau umgekehrt. Ich will den Satz zerlegen und dann diese Worte mit einander vergleichen. Hoffe es ist verständlich was ich meine.

Gruß,
FHACStudent

 

Wo soll das hinführen, was ist das Ziel?

 

Falls es bei dem Vergleich zu Übereinstimmungen kommt, sollen die Werte aus der Tabelle in die Ausgangstabelle kopiert werden und sonst nicht.