Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Paul1 vom 31.07.2021, 11:18 Options
Suchen per VBA
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
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
Antwort 1 von Hajo_Zi vom 31.07.2021, 11:36 Options
Hallo Paul,
nach 2 Begriffen kannst du nicht suchen. Das geht nur über eine Schleife wo Du jede Zeile prüfst.
Gruß Hajo
nach 2 Begriffen kannst du nicht suchen. Das geht nur über eine Schleife wo Du jede Zeile prüfst.
Gruß Hajo
Antwort 2 von nighty vom 31.07.2021, 15:31 Options
hi paul ^^
vielleicht etwas in der art,als ansatz :-))
gruss nighty
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Ähnliche Themen
VBA Suchen und ersetzen - Blatt/Arbeitsmappe
jojo5 26.02.2008 - 35 Hits - 5 Antworten
Teilinhalte suchen
Tom080523 23.05.2008 - 29 Hits - 4 Antworten
VBA ganauen Wert suchen
fedjo 01.02.2009 - 228 Hits - 12 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
