MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 16.04.2018, 22:29   #1
adcak9360
Neuer Benutzer
Neuer Benutzer
Standard VBA - Suche nach jeder Buchstabe

Hallo zusammen, da meine VBA Kentnisse gering sind bin ich auf eure Hilfe angewiesen, und wäre sehr dankbar wenn ihr mir weiterhelfen könntet. Habe folgenden Code und eine Beispiel Datei angehängt. Der Code funktioniert super, nur leider habe ich das Problem das mein Listbox erst dann filtert, wenn ich in Textbox das Wort alles ausschreibe.
Zum Beispiel wenn ich in Ort nach Köln filtern möchte, muss ich bei dieser Code Köln erst ausschreiben, aber ich möchte solange ich K oder ln oder öln schreibe es gefiltert haben.
Daher meine Frage, wie muss ich diesen Code ändern, dass mein Listbox nach Eingabe von Buchstaben filtert, und nicht erst nach Ausschreibung eines Wortes?


Public Sub Suchen()
Dim s As Variant, FA As String, c As Control, Lz As Long, erste_TB As Control

Me.ListBox1.Clear

Lz = Cells(Rows.Count, 1).End(xlUp).Row
If Lz < 2 Then Exit Sub

For Each c In Me.Controls
If TypeName(c) = "TextBox" Then
If Trim(c.Value) <> "" Then
Set erste_TB = c
GoTo Weiter1
End If
End If
Next c

For s = 2 To Lz
With Me.ListBox1
.AddItem
.List(.ListCount - 1, 0) = Range("A" & s & "") ' SN-Nr. = Spalte A
.List(.ListCount - 1, 1) = Range("B" & s & "") ' Artikel-Nr. = Spalte B
.List(.ListCount - 1, 2) = Range("C" & s & "") ' Artikelbeschreibung = Spalte C
.List(.ListCount - 1, 3) = Range("D" & s & "") ' Anzahl = Spalte D
.List(.ListCount - 1, 4) = Range("E" & s & "") ' KZ = Spalte E
.List(.ListCount - 1, 5) = Range("F" & s & "") 'Paketnummer = Spalte F
.List(.ListCount - 1, 6) = Range("G" & s & "") ' Barcode = Spalte G
.List(.ListCount - 1, 7) = Range("H" & s & "") ' Ort = Spalte H
End With
Next s
Exit Sub
Weiter1:
With Range(erste_TB.Tag & "2:" & erste_TB.Tag & Lz & "")
Set s = .Find(c, LookIn:=xlValues, lookat:=xlWhole)
If Not s Is Nothing Then
FA = s.Address
Do
For Each c In Me.Controls
If TypeName(c) = "TextBox" Then
If c.Name <> erste_TB.Name And Trim(c.Text) <> "" Then
If Not LCase(Range(c.Tag & s.Row)) Like LCase(c) Then GoTo Weiter2
End If
End If
Next c
With Me.ListBox1
.AddItem
.List(.ListCount - 1, 0) = Range("A" & s.Row & "") ' SN-Nr. = Spalte A
.List(.ListCount - 1, 1) = Range("B" & s.Row & "") ' Artikel-Nr. = Spalte B
.List(.ListCount - 1, 2) = Range("C" & s.Row & "") ' Artikelbeschreibung = Spalte C
.List(.ListCount - 1, 3) = Range("D" & s.Row & "") ' Anzahl = Spalte D
.List(.ListCount - 1, 4) = Range("E" & s.Row & "") ' KZ = Spalte E
.List(.ListCount - 1, 5) = Range("F" & s.Row & "") 'Paketnummer = Spalte F
.List(.ListCount - 1, 6) = Range("G" & s.Row & "") ' Barcode = Spalte G
.List(.ListCount - 1, 7) = Range("H" & s.Row & "") ' Ort = Spalte H
End With
Weiter2:
Set s = .FindNext(s)
Loop While Not s Is Nothing And s.Address <> FA
End If
End With
End Sub



Private Sub TextBox1_Change()
Suchen
End Sub

Private Sub TextBox2_Change()
Suchen
End Sub

Private Sub TextBox3_Change()
Suchen
End Sub

Private Sub TextBox4_Change()
Suchen
End Sub


schöne Grüße
adcak9360
Angehängte Dateien
Dateityp: xlsm MS-Office.xlsm (30,3 KB, 1x aufgerufen)
adcak9360 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.04.2018, 04:36   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

siehe Dir mal das Beispiel an.
http://hajo-excel.de/gepackt/vba/use...en_listbox.zip

GrußformelHomepage

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:07 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.