Office: Mit Cells.Find(What:="") nach mehreren Begriffen suchen

Hallo,

ich hoffe, ihr könnt mir weiterhelfen, leider bin ich noch ziemlicher VBA-Anfänger.

Wir haben in unserer Firma ein Excel, indem regelmäßig mittels einer Suchanfrage Zeilen in en anderes Excel kopiert werden.
Dies geht mit dem folgenden Befehl:

Cells.Find(What:="Arriving", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

Nun muss neben "Arriving" noch nach "Departure" gesucht werden. Kann ich das in diesen Befehl irgendwie mit "einbauen", z.B. durch or oder &?

Vielen Dank schon mal für eure Hilfe,

lg.

:)

 

Hallo lg.

nein, eine Verbindung mit "&" bringt Dir nichts (es sei denn, Du willst nach dem Ausdruck "Arrival & Departure" suchen). Wenn Du an der Find-Methode festhalten willst, musst Du in 2 Schritten (einmal nach "Arrival", einmal nach "Departure") suchen.

Grüße
EarlFred

 

Hi,

beides zusammen suchen geht nicht - verwende stattdessen Autofilter.

 

Hallo,

erst mal vielen Dank für die schnellen Antworten. Leider bekomme ich es nicht hin, hier eine zweite Suchanfrage einzubinden.

Bisher sieht der Code so aus:

Code:

In dieser Prozedur wird nur nach Berlin TXL gesucht.
Könnt ihr mir sagen, wie ich die Prozedur so umbaue, dass noch nach einem zweiten Flughafen gesucht wird?

Das wäre echt super und ich wäre euch sehr dankbar.

Lg,
maddin

 

Hi,

meinen Vorschlag mit Autofilter hast du schon mal getestet?

 

Hi,

Hab es probiert, aber nicht hingekriegt.
Gibt es eine Möglichkeit, den Filter einzubauen, ohne die Prozedur großartig zu verändern?
Würde die Struktur gerne so beibehalten, da sie Teil von einer wesentlich größeren Anweisung ist.

 

Hi,

und WAS hast du "nicht hingekriegt"? Stehen deine Suchparameter irgendwo verstreut im Tabellenblatt oder sind sie in bestimmten Spalten zu finden?
Einge hochgeladene Beispielmappe mit den für das Problem relevanten Inhalten würde das Helfen sicher wesentlich erleichtern.

 

Ok, hat sich erledigt, wir lösen es jetzt anders.
Trotzdem vielen Dank für die Hilfen.

 

Und WIE löst ihr es? Vielleicht haben auch andere User ein ähnliches Problem und können dann von eurer Lösung profitieren - ein Forum ist immer ein Geben und Nehmen.