Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1268to1272
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Find Methode mit mehreren Suchbegriffen

Find Methode mit mehreren Suchbegriffen
Shizoe89
Hallo Excel-Freunde,
ich arbeite gerade an einer umfangreichen Datenbankabfrage über ein Userform. Dabei nutze ich für die Suchfunktion die Find-Methode in folgender Form:
lngSpUmbr = erste freie Spalte (das rechte Ende der Datenmatrix)
Set rngZelle = Tabelle1.UsedRange.Find(strSearch, Tabelle1.Cells(lngZeile, lngSpUmbr))
lngZeile = rngZelle.Row
Durch das Suchen ab der lngZeile (public) und lngSpUmbr (public) kann ich durch erneutes Drücken des Suchen-Buttons immer das nächste Ergebnis in der Tabelle abfragen.
Nun würde ich gerne auch kombinierte Suchen starten. Wenn ich quasi in Zeile1 Auto und LKW, in Zeile 2 Auto und PKW und in Zeile 3 PKW und LKW stehen habe, und nun nach "PKW Auto" suche, soll er für diese Suche nur Zeile2 ausgeben.
Ist das prinzipiell möglich?

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

Betreff
Benutzer
Anzeige
Nein, ist SO nicht möglich !
21.06.2012 15:28:39
NoNet
Hallo Shizo,
die Excel-Suche sucht immer nur in EINZELNEN Zellen nach den Werten, NIE nach Zellkombinationen in einer Zeile !
Du könntest stattdessen den Autofilter verwenden oder auch eine Hilfsspalte(siehe Beispiel, Spalte C) mit einer passenden Funktion und nach dem Wert dieser Spalte (WAHR) suchen :
ABC
1
2
3
4
5
6
7

Zelle Formel 
C5   =ANZAHL(VERGLEICH($C$1;A5:B5;0);VERGLEICH($C$2;A5:B5;0))=ANZAHL2($C$1:$C$2) 
C6   =ANZAHL(VERGLEICH($C$1;A6:B6;0);VERGLEICH($C$2;A6:B6;0))=ANZAHL2($C$1:$C$2) 
C7   =ANZAHL(VERGLEICH($C$1;A7:B7;0);VERGLEICH($C$2;A7:B7;0))=ANZAHL2($C$1:$C$2) 

In diesem Beispiel musst Du nur die Suchbegriffe in C1:C2 ändern !
Gruß, NoNet
   - 1:3


http://www.exceltreffen.de/index.php?page=224
Anzeige
AW: Nein, ist SO nicht möglich !
22.06.2012 10:49:26
Shizoe89
If lngZeile = 0 Then
searchphrase = Split(Abfrage.TextBox1.Value, ",")
strSearch = searchphrase(0)
On Error Resume Next
strSearch2 = Trim(searchphrase(1))
If strSearch2 = "" Then strSearch2 = "*"
On Error GoTo 0
End If
RE2:
Set rngZelle = Tabelle1.UsedRange.Find(strSearch, Tabelle1.Cells(lngZeile, lngSpUmbr))
lngZeile = rngZelle.Row
On Error Resume Next
Set rngZelle2 = Tabelle1.Rows(lngZeile).Find(strSearch2)
lngZeile2 = rngZelle2.Row
On Error GoTo 0
If lngZeile lngZeile2 Then GoTo RE2
so funktioniert es. aber Effizienz ist auch was anderes.. ;-)
Anzeige

299 Forumthreads zu ähnlichen Themen

Einzigartige Werte in Array identifizieren
Sebastian

Hallo Experten,
ich habe eine Frage, die vermutlich recht leicht zu lösen sein sollte:
Ich habe eine sehr lange Liste, in der in Spalte A Produktnummern stehen, viele kommen auch mehrfach vor. Ich möchte gerne daraus in einem neuen Tabellenblatt eine Liste erstellen, in der jede verschi...
10.08.2008 21:30:00
Thread-ID: 1000688
2 Beiträge
Anzeige
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
If...Then... bei verschiedenen Bedingungen?
Vic

Hallo zusammen
Ich habe folgendes Problem und weiss nicht, wie ich das über mein Marko gelöst bekomme:
In der Spalte "H" habe ich diverse Werte (zwischen 0 und X) und in der Spalte "K" ebenfalls. Nun möchte ich, dass es in der Spalte "L" eine "0" ausgibt, wenn "H" den Wert Null hat und...
13.08.2008 15:00:00
Thread-ID: 1001553
5 Beiträge
Anzeige
Schriftgröße Zelle automatisch an Inhalt anpassen
Peter

Hallo Leute!
Folgende Situation: ich habe in einer Arbeitsmappe auf mehreren Tabellenblättern zu oberst das gleiche Design. Unter anderem steht auf jedem Blatt oben in einer Zelle die gleiche Information. Aus Gründen der Einfachheit muss man diese Information nur einmal auf dem ersten Tabel...
21.08.2008 15:04:06
Thread-ID: 1003519
4 Beiträge
Wert finden und nicht Ziffer
baronf


Habe ein Problem,
in der Spalte C soll nach Zahlen gesucht werden (Variable MZ)
Wenn MZ den Wert 1 bekommt, wird dür MZ ein wahrer Wert ausgegeben, wenn die Zahl auftriit.
Das heisst, dass nach der Ziffer und nicht nach der Zahl gesucht wird!
Wie kann ich die Formel ändern,...
28.08.2008 16:05:00
Thread-ID: 1005503
2 Beiträge
Wert finden und nicht Ziffer
baronf


Habe ein Problem,
in der Spalte C soll nach Zahlen gesucht werden (Variable MZ)
Wenn MZ den Wert 1 bekommt, wird dür MZ ein wahrer Wert ausgegeben, wenn die Zahl auftriit.
Das heisst, dass nach der Ziffer und nicht nach der Zahl gesucht wird!
Wie kann ich die Formel ändern,...
28.08.2008 16:06:00
Thread-ID: 1005504
4 Beiträge
Knifflig - Zeilen einfügen
Frederic

Guten Morgen liebes Forum,
ich hab da ein kleines kniffeliges Problem, hoffe, ihr könnt mir evtl. weiterhelfen:
Ich exportiere Daten per Makro in eine neue leere Mappe (Mappe1.xls).
Vorab: Die Spaltenzuordnung ist immer identisch!
Jetzt möchte ich statt manuell wie bisher, die R...
29.08.2008 07:29:19
Thread-ID: 1005628
10 Beiträge
Range bis zu einer bstimmten Zeile kopieren
Joachim

Hi,
ich habe eine Sub, um Daten eines Ranges von einem Tabellenblatt zu einem andren Tabellenblatt zu kopieren:
Sub Kopieren() Dim intS As Integer Sheets("Daten einlesen").Range("C2:H150").Copy With Sheets("Übersicht") intS = .Cells(4, Columns.Count).End(xlToLeft).Column .Cells(5, in...
19.09.2008 20:57:12
Thread-ID: 1011139
5 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
3
4
4
3
1
3
9
4
3
9
7
5
1
6
3
6
13
2
3
3
6
20
1