Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1220to1224
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
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform-suche mit 2 Teilbegriffen,dann in Listbox

Userform-suche mit 2 Teilbegriffen,dann in Listbox
Ronald
Hallo liebe Leute,
vielleicht erbarmt sich jemand mir zu helfen?
Ich wäre wie immer sehr dankbar
Folgendes:
Ich möchte ein Userform erstellen mit zwei Textboxen, die als Suchbegriffeingaben dienen.
Alle gefundenen Daten sollen danach in einer Listbox aufgelistet werden auf dem selben Userform darunter.
Suchen möchte ich mit Teilbegriffen (xlPart).
TextBox1 sucht in SpalteA (bitte Namen eingeben) UND/ODER TextBox2 sucht in SpalteB (Kunde eingeben)
Vorlage:
SpalteA - SpalteB - SpalteC - SpalteD etc... (10 Spalten)
Hans Müller - Volvo - 11084 - 2008
Tanja Toll - Mitsubishi - 12103 - 2009
Tom Müller - Volvo - 12107 - 2009
Hans Müller - Jaguar - 11099 - 2008
Tanja Mayer - Volvo - 11315 - 2008
Beispiel1:
Eingabe Textbox1: Müller
Eingabe Textbox2: (Leer)
Ergebnis in Listbox:
Hans Müller - Volvo - 11084 - 2008
Tom Müller - Volvo - 12107 - 2009
Hans Müller - Jaguar - 11099 - 2008
Beispiel2:
Eingabe Textbox1: (Leer)
Eingabe Textbox2: Volvo
Ergebnis in Listbox:
Hans Müller - Volvo - 11084 - 2008
Tom Müller - Volvo - 12107 - 2009
Tanja Mayer - Volvo - 11315 - 2008
Beispiel3:
Eingabe Textbox1: Müller
Eingabe Textbox2: Volvo
Hans Müller - Volvo - 11084 - 2008
Tom Müller - Volvo - 12107 - 2009
Es sollen dann immer alle dazugehörigen Spaltenwerte (ganzer Datensatz) in der entsprechenden Zeile der gefundenen Daten in der Listbox eingetragen werden
(möglich, dass ich später wegen Übersichtlichkeit auf ein paar hintere Spalten verzichten werde).
Da ich immer noch relativ am Anfang meines VBA-"Studiums" stehe, wäre es schön, wenn mir jemand einen Denkansatz geben könnte, wie sich das am besten umsetzen lässt.
Hilfreich wären dabei entsprechende Befehle, damit ich zB. über die Excel-Hilfe mir die Syntax anschauen oder mein Buch zu Rate ziehen kann.
Falls jemand den Code quasi schreiben möchte: auch gerne...dann kann ich ihn mir ansehen und davon lernen,
aber das erwarte ich natürlich gar nicht, sondern würde mich über einen Denkansatz schon sehr freuen.
mit freundlichen Grüßen
Ronald

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Userform-suche mit 2 Teilbegriffen,dann in Listbox
08.07.2011 10:17:06
Ronald
P.S.
Habe natürlich schon online gesucht (immer als erstes ;-), aber bisher nichts ergiebiges für mich gefunden
Ronald
AW: Userform-suche mit 2 Teilbegriffen,dann in Listbox
08.07.2011 13:32:43
Ronald
Hier noch der Code, den ich in einem anderen Forum von einem hilfsbereiten Mitglied bekommen habe, um das Thema abzuschliessen und dem nächsten Suchenden eventuell behilflich zu sein.
VIELEN VIELEN DANK an Ulrich (nickname: losgehts) aus dem Forum office-loesung.de
Private Sub CommandButton1_Click()
Dim strSuch As String, intSuchSP As Integer
Dim strSuch2 As String, intSuchSp2 As Integer
Dim rngFund As Range, strAdr As String, lngFundZeile As Long, i As Integer
'Listbox leeren
Me.ListBox1.Clear
Me.ListBox1.ColumnCount = 4     'Listbox bekommt 4 Spalten (kannst du auch über die  _
Einstellungen einstellen)
'Suchbegriffe und Spalten definieren:
If Len(Me.TextBox1) > 0 Then
strSuch = Me.TextBox1.Text
intSuchSP = 1
If Len(Me.TextBox2) > 0 Then
strSuch2 = Me.TextBox2.Text
End If
intSuchSp2 = 2
ElseIf Len(Me.TextBox2) > 0 Then
strSuch = Me.TextBox2.Text
intSuchSP = 2
strSuch2 = ""  'Textbox1 ist leer!
intSuchSp2 = 1
Else
MsgBox "Bitte Suchbegriff eingeben!"
Exit Sub    'Makro direkt verlassen
End If
'Suchen
Set rngFund = Columns(intSuchSP).Find(strSuch, LookIn:=xlValues, lookat:=xlPart)
'Wurde der Suchbegriff gefunden?
If Not rngFund Is Nothing Then
strAdr = rngFund.Address         'erste Adresse merken (verhindert Endlosschleife)
'Schleife über alle Suchbegriffe
Do
lngFundZeile = rngFund.Row    'Zeile des gefundenen Datensatzes
'zweiten Suchbegriff (strSuch2) kontrollieren:
If InStr(Cells(lngFundZeile, intSuchSp2).Value, strSuch2) > 0 Or strSuch2 = "" Then
'Liste füllen
Me.ListBox1.AddItem Cells(lngFundZeile, 1).Value
For i = 1 To 3
Me.ListBox1.List(Me.ListBox1.ListCount - 1, i) = Cells(lngFundZeile, i + 1). _
Value
Next
End If
'Nächsten Suchbegriff finden (strSuch)
Set rngFund = Columns(intSuchSP).FindNext(rngFund)
Loop Until strAdr = rngFund.Address
End If
End Sub

Anzeige
AW: Userform-suche mit 2 Teilbegriffen,dann in Listbox
08.07.2011 14:45:03
Peter
Hallo Ronald,
das ist doch immer wieder schön, wenn ein Fragender in mehreren Foren diverse Helfer beschäftigt.
Danke, dass Du meine Zeit in Anspruch genommen hast!
Gruß Peter

301 Forumthreads zu ähnlichen Themen

Summwenn mit mehreren Arbeitsblaettern/Kriterien
Alex

Hallo @ all
Ich habe mal wieder ein Problem:
Ich habe die Arbeitsblaetter 1-31 und moechte von dort jeweils die Werte aus den Zellen G2:G32 summieren wenn Die Zellen A und B jeweils eine entsprechende Bedingung erfuellen.
Bisher arbeitete ich nur mit einer Bedingung in den Zellen de...
12.08.2008 13:20:00
Thread-ID: 1001177
4 Beiträge
Anzeige
SVerweis mit 2 Kriterien über Index??
Bernd

Hallo Freaks,
ich habe es wirklich versucht....und auch ein einfaches Bsp. aufgebaut. Nur die Indexformel funktioniert nicht...
Ich bitte Euch um Hilfe.
https://www.herber.de/bbs/user/56079.xls
Danke, Bernd
17.10.2008 15:26:00
Thread-ID: 1017185
4 Beiträge
Liste mit 2 Kriterien sortieren...
Uwe

Guten Abend an Alle,
brauche mal Hilfe bei der sortierung einer liste.
In F1 soll der beste Spieler aus der Liste angezeigt werden, der die kürzeste Zeit benötigt hat, und dabei am wenigsten Fehler gemacht hat.
...wie kann man sowas machen.
Mit der Funktion Rang und KKleinste ha...
19.10.2008 20:47:00
Thread-ID: 1017528
7 Beiträge
Anzeige
Suchen mit vorgegebener Spaltenüberschrift
Bernd

Hallo,
wie kann ich einer Formel wie z.B. ZÄHLENWENN(Test!M:M;"bestimmter Text"), wo ja die M-Spalte durchsucht wird, M:M durch eine fest vorgebene Spaltenüberschrift (steht immer in der 1. Zeile), so dass die Formel bei Verschiebung von Spalten nicht in der falschen Spalte M sucht?
Vie...
21.11.2008 09:33:00
Thread-ID: 1026630
4 Beiträge
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Suchen in Matrix nach 2 Werten mit einer Funktion
Heix

Hallo zusammen, habe gerade die Gesamt-CD von Herrn Herber erhalten und habe nun auch schon die erste Frage:
Ich möchte in einer Zelle den Wert aus einer Matrix übernehmen lassen und zwar wie folgt:
Matrix:
Lampe Brutto Netto
-------- -------- -------
EGES.....24.......18
28.11.2008 11:24:00
Thread-ID: 1028631
5 Beiträge
Suche in Text mit mehreren Suchkriterien
Christian

Hallo Forum,
ich möchte prüfen, ob ein Text mindestens einen Text aus einer Liste enthält.
Bsp: enthält der Text
"das ist die Liste der gelieferten Früchte: Apfel, Birnen"
einen der Texte enthält:
"Banane", "Kirsche", "Birnen"
in dem Fall ja. Ich brauche keine Position...
14.01.2009 11:32:00
Thread-ID: 1039544
10 Beiträge
Suchen mit 3 Kriterien
Schmidt

Hallo zusammen
Ich habe eine Tabelle , in der ich mit 3 Suchkriterien einen Wert errechnen möchte.
Mit Sverweis und der WENN-Funktion konnte ich das Problem nicht lösen. Könnte mir bitte jemand hilfreich zur Seite stehen.
https://www.herber.de/bbs/user/58658.xls
21.01.2009 14:41:00
Thread-ID: 1042200
7 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
3
1
3
6
2
3
4
4
9
6
2
1
3
9
4
4
3
2
6
8
4
7
3
7
4