Anzeige
Archiv - Navigation
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mehrere Suchkriterien für Maktostart

Mehrere Suchkriterien für Maktostart
04.08.2006 13:15:36
marcl
Hallo Forumsgemeinde. Ich habe ein "kleines" Problem.
Ich lasse in meinem Makro Begriffe suchen, von wo aus die Zellen abwärts berabeitet werden sollen. Allerdings habe ich mehrere Begriffe zur Auswahl.
...
such = "alles"
Selection.Find(What:=such, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
...
nun kann such aber mehrere Begriffe haben. Wie schaffe ich es, dass wenn "alles" nicht gefunden wird, das Makro von vorne läuft und den nächsten Begriff verwendet. "neues"z.B.
Ich hoffe, ich habe mich verständlich ausgedrückt.
Vielen Dank für Eure Hilfe
marcl

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Suchkriterien für Maktostart
04.08.2006 13:40:18
Andi
Hi,
zB so:

Sub t()
Dim my_array
Dim a As Integer
my_array = Array("hallo", "servus", "moin", "tach", "ciao")
For a = 0 To 4
If Not Selection.Find(my_array(a)) Is Nothing Then
Selection.Find(my_array(a)).Activate
Exit Sub
End If
Next a
End Sub

Schönen Gruß,
Andi
danke o.t.
07.08.2006 09:20:53
marcl
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige