Suchen per VBA

Question

Hallo zusammen,

ich möchte per VBA ein Tabellenblatt nach zwei Kriterien (such1 und such2) durchsuchen. Wenn beide Kriterien nicht in der selben Zeile vorkommen, soll eine bestimmte Zelle dieser Zeile kopiert werden.

Hab mal folgnedes versucht. Bekomme aber immer den Fehler, das ein Objekt erforderlich ist. Die Variablen Start2, d und i geben bestimmte Zeilen an.

With Worksheets("Stichtag").Range(Cells(1, 1), Cells(3, d))

Set Suche = .Find(such1 And such2, LookIn:=xlValues)

If Suche Is Nothing Then

Worksheets("Übersicht").Cells(Start2, 3) = Worksheets("Stichtag").Cells(i, 8)
Worksheets("Übersicht").Cells(Start2, 4) = Worksheets("Stichtag").Cells(i, 28)

End With

Start2 = Start2 + 1

End If

Würd mich freuen, wenn mir jemand weiterhelfen könnte.
Komplett andere Lösungen sind ebenfalls willkommen.

Schon mal Danke im Voraus
Grüße
Paul

Answer 1

Hallo Paul,

nach 2 Begriffen kannst du nicht suchen. Das geht nur über eine Schleife wo Du jede Zeile prüfst.

Gruß Hajo

Answer 2

hi paul ^^

vielleicht etwas in der art,als ansatz :-))

gruss nighty

Sub Suchen()
Dim suche1 As Range
Dim suche2 As Range
'Dim Begriff1 As ?
'Dim Begriff2 As ?
Set suche1 = Worksheets("Stichtag").Range(Cells(1, 1), Cells(3, 4)).Find(Begriff1, LookIn:=xlValues)
Set suche2 = Worksheets("Stichtag").Range(Cells(1, 1), Cells(3, 4)).Find(Begriff2, LookIn:=xlValues)
If Not suche1 Is Nothing And Not suche2 Is Nothing Then
If suche1.Row <> suche2.Row Then

End If
End If
End Sub