Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1840to1844
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
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchfunktion mit 3 Bedingungen unter VBA

Suchfunktion mit 3 Bedingungen unter VBA
03.08.2021 18:16:42
Oliver
Sehr geehrtes Forum,
habe folgendes Problem.
Ich möchte im Excel eine Suchfunktion über 2 TextBox einträge durchsuchen und alle Treffer in der Listbox einfügen.
Die normale Suchfunktion mit einer Bedingung bekomme ich über eine Zusatztabelle und Listindex hin, aber mit
3 Bedingungen geht nicht so richtig.
In der Textbox1 steht das Datum, in der Textbox 5 steht die Eigentliche Suchanfrage und in der Spalte 2 stehen
Zahlen wo die Zelle blau bzw. weiß ist.
Nun zur Suchabfrage. Ich brauche das Datum und die Bezeichnung DASt-022, nach der Bestätigung sollte dann noch
zusätzlich überprüft werden ob in der Spalte die Zahl blau hinterlegt ist darf sie nicht berücksicht werden nur wenn
sie weiß hinterlegt wird.
Vielleicht kann mir jemand weiterhelfen.
Danke
lg

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchfunktion mit 3 Bedingungen unter VBA
03.08.2021 18:29:27
onur
Dafür solltest du mal eine Beispielsdatei hochladen.
AW: Suchfunktion mit 3 Bedingungen unter VBA
04.08.2021 07:18:22
Oliver
Guten Morgen,
mein File ist größer als die erforderlichen 300KB?
LG
AW: Suchfunktion mit 3 Bedingungen unter VBA
04.08.2021 09:52:00
Matthias
Moin!
Theoretisch würde es reichen, wenn du eine Schleife über alle befüllten Zeilen machst. Bei jedem Durchlauf prüfst du, ob Textbox1 und Textbox2 zutreffen und die Farbe nicht blau ist. Wenn das alles zutrifft, fügst du den erforderlichen Wert in deine Listbox ein.
Kannst es ja mal probieren. Ansonsten poste mal deinen Code, dann kann man das mit einbauen.
VG
AW: Suchfunktion mit 3 Bedingungen unter VBA
04.08.2021 10:02:27
Oliver
Hallo Matthias,
Das ist meine Suchfunktion für für 1 Listbox,
'Suche Lieferscheinnummer

Private Sub cmdSuchenLFSNr_Click()
Dim lngZeile As Long
Dim lngZeileMax As Long
Dim RowString As String
Dim RowSource As String
Dim i As Integer
Worksheets("SearchResult").UsedRange.ClearContents
Dim wksfind As Boolean
wksfind = False
For Each mywks In ThisWorkbook.Worksheets
If mywks.Name = "SearchResult" Then
wksfind = True
mywks.Select
Exit For
End If
Next
If Not wksfind Then
Worksheets.Add
ActiveSheet.Name = "SearchResult"
End If
Me.ListBox1.RowSource = "" ' Listbox in Form initialisieren
With Tabelle1
lngZeileMax = .Cells(.Rows.Count, 2).End(xlUp).Row
i = 1
For lngZeile = 3 To lngZeileMax
If InStr(.Cells(lngZeile, 2).Value, Me.TextBox2.Value) > 0 Then
RowString = ""
For x = 1 To 12
ActiveSheet.Cells(i, x) = .Cells(lngZeile, x).Value
Next
ActiveSheet.Cells(i, 13).Value = lngZeile 'ausgewählte Datenzeile in TABELLE1
i = i + 1
End If
Next lngZeile
'SearchResult in Listbox1 übernemmen
Me.ListBox1.RowSource = Worksheets("SearchResult").Range(Worksheets("SearchResult").Cells(1, 1), Worksheets("SearchResult").Cells(i, 13)).Address
.Activate
End With
End Sub
Danke
lg
Anzeige
AW: Suchfunktion mit 3 Bedingungen unter VBA
04.08.2021 10:25:33
Oliver
Hab mich verschrieben, sollte Textbox heißen und nicht Listbox
AW: Suchfunktion mit 3 Bedingungen unter VBA
04.08.2021 21:01:11
Matthias
Moin!
Also habe mir mal den Code angeschaut. Hast du eingangs nicht was von Textbox 1 und 5 geschrieben. Bei dir steht jetzt Textbox2. Da müsstest du mal schauen. Du müsstest nur die Zeile hier;
If InStr(.Cells(lngZeile, 2).Value, Me.TextBox2.Value) > 0 Then
~f~
durch die hier
~f~
If InStr(.Cells(lngZeile, 2).Value, Me.TextBox2.Value) > 0 And InStr(.Cells(lngZeile, 2).Value, Me.TextBox3.Value) > 0 Then
ersetzen.
Wenn ein Datum vorkommt, evtl. die DAten mittels Cdate() noch umwandeln. Lässt sich ohne Datei jetzt schlecht testen. Die Farbe ist jetzt nicht mit dabei. Da weiß ich nicht, welchen Colorindex bzw. welchen Color du da nimmst. Da müsstest du im if then noch ein and einbauen und dann den Farbindex prüfen.
VG
Anzeige
AW: Suchfunktion mit 3 Bedingungen unter VBA
05.08.2021 06:33:53
Oliver
Hallo Matthias,
das mit der Textbox 2 war nur meine suchfunktion für diese. Ich benötige sie schon für 1 und 5.
Danke für den Denkanstoß werde die if funktion einbauen und einmal testen.
lg
AW: Suchfunktion mit 3 Bedingungen unter VBA
05.08.2021 20:08:32
Oliver
Danke,
hatte irgendwie ein blackout.
lg
deine Antwort interpretiere ich so....
07.08.2021 14:08:49
Werner
Hallo,
...dass dein Problem gelöst ist?!?
Dann ist der Beitrag aber nicht mehr offen.
Gruß Werner
AW: deine Antwort interpretiere ich so....
07.08.2021 19:00:11
Oliver
Hi Werner,
wie schließe ich den Beitrag!
Danke
lg
Oliver
AW: deine Antwort interpretiere ich so....
07.08.2021 19:12:01
Oberschlumpf
in dem du einfach - nicht mehr! - die Option "Aktiviere das Kontrollkästchen, ...." aktivierst...aktives Schließen gibt es in diesem Forum nicht. Alle Beitrag werden nach einigen Tagen ins Forum-Archiv verschoben, sind im "aktiven" Forum nicht mehr sichtbar...
Anzeige
AW: deine Antwort interpretiere ich so....
09.08.2021 15:20:00
Oliver
Ok
Danke

54 Forumthreads zu ähnlichen Themen

Verweis mit 3 Bedingungen - Bedingung ist <>""
Andi

Moin,
in meiner Datei wird in Spalte C abgeprüft "SiT" (1. Bed.)
in Spalte I: momentan Bedingung "1"; da möchte ich aber eigentlich wenn Zahlen "1" oder "2" ... bis 9
oder noch besser: sobald nicht leer (2. Bed.)
jetzt fehlt mir noch die 3. Bedingung: Spalte K: "1"
sind dies...
19.02.2009 10:37:00
Thread-ID: 1052027
8 Beiträge
Anzeige
zählenwenn mit mehreren bedingungen
di

Hallo,
ich versuche eine zählenwenn Funktion mit mehreren Bedingungen aufzubauen. Dafür verwende ich die Funktion summenprodukt.
Es sollen dabei aus einer Tabelle für jede Woche die Anzahl der Arbeitstage ermittelt (gezählt werden). Die Wochen sind fortlaufend nummeriert, die Tage von 1...
23.07.2009 13:44:29
Thread-ID: 1090803
4 Beiträge
Zählenwenn mit Bedingungen
Rene

Hallo liebe Excel Gemeinde ;)
Habe folgendes Problem! Ich möchte eine Statistik für unser Pflegeheim erstellen.
Es gibt ein fortlaufende Bewohnerliste mit Informationen (Pflegestufe, Geschlecht, etc)
Was für mich jetzt wichtig ist ist das Geschlecht und die Pflegestufe.
So sieht...
21.10.2009 23:17:11
Thread-ID: 1111218
5 Beiträge
Anzeige
Zählenwenn mit 2 Bedingungen | Herbers Excel-Forum
Steve
Hallo,
habe eine Tabelle, bei der die Zeilen gezählt werden sollen, die zwei Bedingungen erfüllen:
1. Bedingung: wenn Zelle in F22 ungleich "x"
2. Bedingung: wenn ANZAHLLEEREZELLEN(G22:R22))=12
und diese zwei Bedingungen (ich denke das geht irgendwie über Summenprodukt) auf 1000 Zei...
15.01.2010 15:05:51
Thread-ID: 1130304
2 Beiträge
wenn / und Verknüpfung mit 3 Bedingungen
L.Maack

Hallo Excel Profis, ich benötige Hilfe bei einer wenn/und Funktion mit 3 Bedingungen.
Ich habe ein Excel Sheet bei mir zu Hause mit Excel 2003 erstellt. Dort klappt meine aufgebaute Funktion auch. Im Büro habe ich das selbe Sheet mit 2007 geöffnet und meine Funktion klappt weiterhin. Wenn...
20.05.2010 14:45:29
Thread-ID: 1158097
4 Beiträge
ZählenWenn mit Bedingungen
Thomas

Hallo zusammen,
ich möchte z.B. zu eine bestehende Formel Zählenwenn(C1:C5;"erledigt")~f~ noch zwei Bedinungen hinzunnehmen. Im folgenden die Zellen mit den Werten:
A1: 1 B1: 2010 C1: offen
A2: 2 B2: 2009 C2: erledigt
A3: 4 B3: 2010 C3: offen
A4: 5 B4: 2010...
30.08.2010 22:06:09
Thread-ID: 1174887
5 Beiträge
Formel: "SummeWenn" mit 3 Bedingungen
pbaer007

Hallo an die Excel-Gemeinde,
ich möchte aus zwei Listen Summen sortiert anch Monaten und 2 Krieterien in einer dritten Tabelle darstellen.
Hierfür habe ich im Forum und auch unter einem Link zu einer Excel-Formelsammlung zwar Formeln gefunden. Jedoch war ich nicht in der Lage die dort g...
08.09.2010 12:22:09
Thread-ID: 1176341
5 Beiträge
Index mit 3 Bedingungen?
karl

Hallo zusammen,
wahrscheinlich für Profis nur Excel-1x1 aber ich komm leider nicht weiter:
Möchte wie im angehängten Beispiel einen Wert aus einer Tabelle auslesen. Dabei gibt es in der Spalte 2 Bedingungen und in der Zeile 1 Bedingung.
Gibts da ne Möglichkeit mit Index/Vergleich od...
18.04.2011 16:45:33
Thread-ID: 1210926
5 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox TextBox

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
7
2
3
4
3
1
3
4
4
4
9
6
6
5
8
2
21
7
6
5
2
3
15
3
2