Multisuchfunktion via Combobox

Ich habe eine Suchfunktion die bisher den in eine Textbox eingetragenen Suchbegriff in allen gefüllten Zellen der Spalte E sucht.


Private Sub Suche()
Dim lz As Long, i As Long
Const SearchCol = 5 ''Spalte E
lz = Cells(Rows.Count, SearchCol).End(xlUp).Row
Application.ScreenUpdating = False
Rows.Hidden = False
For i = 2 + 1 To lz ''ab Zeile 3
Rows(i).Hidden = InStr(Cells(i, SearchCol), inputUserTB.Text) = 0
Next i
'Application.ScreenUpdating = True
End Sub

Nun benötige ich auch für die Spalte B (und ggf. zukünftig auch noch für andere Spalten) dieses Suchmuster. Hierfür hatte ich die Idee eine ComboBox zu verwenden, in der man die zu durchsuchende Spalte auswählt. Die Auswahl der Combobox könnte dann an die Suchroutine übergeben werden. Dies scheint mir die günstigste Lösung zu sein?
Nur leider bekomme ich das VBA-technisch heut nicht mehr hin.
Ich wäre sehr dankbar für Lösungsvorschläge aber auch für Verbesserungen/Optimierungen, falls meine bisherige Logik noch nicht ideal sein sollte.
Vielen Dank im Voraus!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public intZähler As Integer Private Sub ComboBox1_Change() Dim intSpalte As Integer Dim lzeile As Long Dim bolsuche As Boolean If Me.ComboBox1.ListIndex = -1 Then Exit Sub intSpalte = Me.ComboBox1.ListIndex + 1 With Sheets("Tabelle1") lzeile = .Cells(.Rows.Count, intSpalte).End(xlUp).Row For intZähler = 3 To lzeile bolsuche = .Cells(intZähler, intSpalte) Like Me.TextBox1.Text If bolsuche = False Then .Rows(intZähler).Hidden = True Next End With End Sub Private Sub UserForm_Initialize() For intZähler = 1 To 10 'Spalte A bis J Me.ComboBox1.AddItem ("Spalte " & Chr(96 + intZähler)) Next End Sub

Hallo Peter,
ersteinmal vielen Dank für deine Hilfe!
Mir gelingt es jedoch leider nicht, dein Script im Detail nach zu vollziehen. Aus jenem Grunde läuft es bei mir wahrscheinlich auch nicht!?
Ich habe eine Combobox eingefügt und den Namen der bestehenden Textbox angepasst. Dennoch bleibt die Combobox immer leer und das Change-Ereignis funktioniert ebenso nicht. Ich hab mir mal in das Initialize und in das Change-Ereignis eine ComboBox eingebaut, die jedoch auch nach dem Anklicken und Öffnen der leeren Liste ausgegeben wird. Die Combobox ist korrekt mit den Ereignissen verknüpft (kein Schreibfehler, etc.).
Ich vermute den Fehler in der Initialize-Routine, denn diese sollte doch die Combobox mit den Spaltenköpfen füllen?!
Vielen Dank für die Hilfe!!!

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Multisuchfunktion via Combobox

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread