Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1140to1144
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
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wildcardsuche in UF in mehreren Spalten

Wildcardsuche in UF in mehreren Spalten
Frank
Hallo zusammen
Auf anraten von Peter hier ein neuer Thread in Bezug auf "Wildcards"
Ich las den Thread "zwei Suchkriterien über TXT-Box erfüllen"
https://www.herber.de/bbs/user/68128.xls
und wollte eine Frage loswerden,
Wie kann in einem Uf, in einer Listbox, nicht nur per Anfangsbuchstaben sondern auch mittels
vorgestelltem (*) + irgendeiner weiteren Eingabe (z.b. *r = Anfang für Fred oder Friedrich )
gesucht werden.
Und kann man die Suche auch auf mehrere Spalten ausdehnen.
Gruß Frank

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
versuch es mal so
23.02.2010 17:55:19
Tino
Hallo,
, es wird der Like Operator verwendet, siehe auch in der Hilfe unter "Like (Operator)".
Private Sub TextBox1_Change()
Dim A As Long, AA As Long
Dim booTreffer As Boolean

ListBox1.List = arrArtikel

For A = ListBox1.ListCount - 1 To 0 Step -1
    For AA = 0 To ListBox1.ColumnCount
        If ListBox1.List(A, AA) Like TextBox1 Then
            booTreffer = True
            Exit For
        End If
    Next AA
    If Not booTreffer Then
     ListBox1.RemoveItem (A)
     booTreffer = False
    End If
Next A

End Sub
Gruß Tino
Anzeige
AW: versuch es mal so
23.02.2010 20:18:08
Frank
Guten Abend allesamt
irgendwie klappt der Private Sub nicht, mit dem Wildcard und so
Suche wird jetzt nur in der ersten Spalte vorgenommen und bei jedweder Eingabe kommt eine neue Zeile aus der Reihe bei Eingabe 1,2,3,4 usw. dazu. Keine Filter oder Suchfunktion inne.
Kann wer da dem Fehlerteufel mal ausknipsen, hab keine Ahnung wo suchen.
Gruß Frank
Wildcardsuche in UF in mehreren Spalten
23.02.2010 20:25:45
Frank
irgendwie habsch en Brett am Kopp
Sorry wegen doppelt einstellen, der hier gehört hier her "AW: versuch es mal so" und der zu dem oben genannten
Guten Abend allesamt
irgendwie klappt der Private Sub nicht, mit dem Wildcard und so
Suche wird jetzt nur in der ersten Spalte vorgenommen und bei jedweder Eingabe kommt eine neue Zeile aus der Reihe bei Eingabe 1,2,3,4 usw. dazu. Keine Filter oder Suchfunktion inne.
Kann wer da dem Fehlerteufel mal ausknipsen, hab keine Ahnung wo suchen.
Gruß Frank
Anzeige
AW: Wildcardsuche in UF in mehreren Spalten
23.02.2010 21:48:04
Tino
Hallo,
war noch ein fehler enthalten.
booTreffer = False muss auserhalb der If stehen.
Wenn Du nur bestimmte Spalten durchsuchen willst, musst Du dies noch mit einbauen.
In etwa so.
If ListBox1.List(A, AA) Like TextBox1  And  (AA = 1 Or AA = 2) Then

Private Sub TextBox1_Change()
Dim A As Long, AA As Long
Dim booTreffer As Boolean

ListBox1.List = arrArtikel

For A = ListBox1.ListCount - 1 To 0 Step -1
    For AA = 0 To ListBox1.ColumnCount
        If ListBox1.List(A, AA) Like TextBox1 Then
            booTreffer = True
            Exit For
        End If
    Next AA
    If Not booTreffer Then
     ListBox1.RemoveItem (A)
    End If
    booTreffer = False
Next A

End Sub
Gruß Tino
Anzeige
Wildcardsuche: funktioniert genial...
25.02.2010 13:56:47
Peter
Hallo Tino
habe gerade deinen Code eingebaut und bin begeistert.
Gruß
Peter

330 Forumthreads zu ähnlichen Themen

Syntax für Summe aus mehreren Blättern
friedolin

Hallo Forum,
ich möchte aus mehreren Blättern, die da heißen " 01.01. , 02.01. 03.01. " usw. die Summe der Spalte D40 (immer gleich) in ein neues Blatt ermitteln. Habe schon einiges probiert, aber die Syntax macht Probleme.
diese Formel funktioniert nicht! =Summe(01.01. : 31.01. !D40...
18.08.2008 14:55:54
Thread-ID: 1002612
7 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 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
Anzeige
Texte aus anderem Tabellenblatt kopieren
Stefan

Hallo zusammen,
in einer Tabelle habe ich mir im Tabellenblatt 'Umwandeln' für verschiedene Textmanipulationen Formeln eingerichtet. Die Texte, die verändert werden sollen (Artikelbezeichungen) bekomme ich in Form einer Exceltabelle und ich ziehe mir das Tabellenblatt 'Artikel' als neues Ta...
22.04.2009 23:35:00
Thread-ID: 1070529
3 Beiträge
Suchen in bestimmten Zellen von mehreren Dateien
mehreren

Hallo Excel und VBA Profis.
Dies ist mein erster Beitrag in diesem Forum - ich bin zu anderen Fragen bereits fündig geworden (erstklassiges Forum!), jedoch bin ich bei meinem aktuellen Problem mit meinem Latein am Ende und hoffe Ihr könnt mir weiterhelfen.
Ich habe ein digitales Archiv...
05.05.2009 10:30:21
Thread-ID: 1072994
9 Beiträge
Summe aus einer Tabelle mit mehreren Kriterien
Erik

Hallo zusammen,
momentan verzweifel ich an einem Problem in Excel.
Die Tabelle hat das folgende Format
Europe: 1 = Ja und 0 = nein
Europe Type Size Price
1 x S 19
1 y L 145
0 x S 291<...
10.06.2009 13:50:10
Thread-ID: 1080478
4 Beiträge
Auswertung über mehrere Tabellenblätter
Stefan

Hallo zusammen,
ich hoffe ich finde bei Euch Hilfe. Ich habe nun schon einige Zeit das Forum durchsucht aber keine passende Lösung gefunden.
Ich habe eine Arbeitsmappe mit ca. 90 Tabellenblättern. Die Tabellenblätter sind so aufgebaut, das jeweils im Bereich
C6-E60 Daten stehen. In...
17.06.2009 10:51:48
Thread-ID: 1082164
6 Beiträge
Summen aus mehreren Dateien bilden
Rudolf

Hallo Excel-Freunde,
ich habe z.b. 50 Dateien, die sich alle in einem Ordner befinden und fortlaufend nummeriert sind (also 1.xls, 2.xls usw..
In allen Dateien befindet sich ein Arbeitsblatt mit dem gleichen Aufbau. Ich möchte nun in einer weiteren Datei mit dem gleichartig aufgebauten...
28.06.2009 19:07:21
Thread-ID: 1084895
3 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
6
3
2
9
15
2
8
3
5
2
4
3
6
2
6
3
1
12
3
3
13
2
7
2
4