Office: String > 3 Zeichen aus String auslesen

Hallo zusammen,

ich habe folgendes Problem:
In Zelle A1 steht bspw. "V1 Y03 ZZZYYYY AB".
Zelle A2 enthält: "V1 V2 Y04 ZZZXXXX AC" usw.

Jetzt soll aus der jeweiligen Zelle immer das erste Wort in eine andere Spalte kopiert werden, dass mehr als 3 Zeichen enthält.

Also in dem Fall: In Zelle B1 sollte dann "ZZZYYYY" stehen.
In Zelle B2 "ZZZXXX" stehen.

Hat dazu jemand eine Lösung parat?

Vielen Dank im Voraus!

:)

 

Hallo,

Ja.
Du kannst mit der Split Funktion deinen String mit dem Leerzeichen in ein Array splitten.
Anschließend eine Schleife von i=1 to Ubound(MyArray) machen und die Länge des jeweiligen Strings feststellen mittels Len(MyArray(i))

If Len(MyArray(i)) > 3 then cells(rw,2).value=MyArray(i)

Sobald du das erste Wort gefunden hast beendest du die Schleife und langst damit zurück in die Hauptschleife, die durch die Zeilen von Spalte A geht bis kein Wert mehr vorhanden ist.

Code:

Grüße

Mathieu

 

Mit einem Array hab ich es auch probiert, nur die Split Funktion kannte ich noch nicht. Mit der Instr-Funktion hat es nicht so gut geklappt *wink.gif*.

Vielen Dank Mathieu!

 

Eine Frage hätte ich noch: Wie sieht das Ganze aus, wenn ich in diesem Array nach einem Ausdruck in Klammern suchen möchte und diesen in die Spalte daneben schreiben will?

A1: "xxx yyy (Hans) abds" --> A2: "Hans"

Arrays gehören bisher leider noch nicht zu meinen Stärken in VBA.
Wäre dir sehr dankbar, wenn du mir nochmal helfen könntest *Smilie.

 

Hallo,

sofern der Ausdruck mit den Klammern nach wie vor > 3 ist:

Code:

Habe einfach nach der Len > 3 Abfrage noch eine weitere Abfrage ob eine offene oder geschlossene Klammer im String vorhanden ist.
Wenn du prüfen willst, ob offene und geschlossene Klammer vorhanden, dann statt or, and nutzen.

Grüße

Mathieu