habe festgestellt, das ich nochmal eine Unterstützung benötige.
Habe eine ComboBox über die Spalte D (4) gesetzt.
Ich möchte mit der ComboBox die Namen in der Spalte D filtern, angefangen ab Zeile 3.
gruß norbert
Dim bol 'Das hier oben ins Userform Modul
Private Sub ComboBox1_Change()
If bol Then Exit Sub
If ComboBox1.Value = "" Then Exit Sub
bol = True
Tabelle2.Range("D3").AutoFilter
Tabelle2.Range("D3").AutoFilter Field:=1, Criteria1:=ComboBox1.Value
bol = False
End With
End Sub
Private Sub ComboBox1_Change()
Dim bol 'Das hier oben ins Userform Modul
If bol Then Exit Sub
If ComboBox1.Value = "" Then Exit Sub
bol = True
ActiveSheet.Range("D3").AutoFilter
ActiveSheet.Range("D3").AutoFilter Field:=1, Criteria1:=ComboBox1.Value
bol = False
End Sub
Dim bol As Boolean
Private Sub ComboBox1_Change()
If bol Then Exit Sub
If ComboBox1.Value = "" Then Exit Sub
bol = True
ActiveSheet.Range("D3").AutoFilter
ActiveSheet.Range("D3").AutoFilter Field:=4, Criteria1:=ComboBox1.Value
bol = False
End Sub
Private Sub ComboBox2_Change()
If bol Then Exit Sub
If ComboBox2.Value = "" Then Exit Sub
bol = True
ActiveSheet.Range("a3").AutoFilter
ActiveSheet.Range("a3").AutoFilter Field:=1, Criteria1:=ComboBox2.Value
bol = False
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen