Guten Tag Gemeinde,

anbei eine Bspdatei. Bitte das "Programm s

Private Sub ComboBox1_Change()
'Filtert Spalte N (=Spalte 14)
ActiveSheet.ListObjects("Tabelle2").Range.AutoFilter Field:=14, Criteria1:=UserForm1.ComboBox1 '14 steht für die Spalte die gefiltert wird.
UserForm1.ComboBox2.Enabled = True 'aktiviert die 2 ComboBox
'ComboBox1.Sorted = True
Call Cbo_Spalte13 'ruft das Makro auf
End Sub
Private Sub ComboBox2_Change()
'Filtert Spalte M (=Spalte 13)

Criteria1 = UserForm1.ComboBox2 & "*"
ActiveSheet.ListObjects("Tabelle2").Range.AutoFilter Field:=13, Criteria1:=UserForm1.ComboBox2 '13 steht für die Spalte die gefiltert wird.
UserForm1.ComboBox3.Enabled = True 'aktiviert die 3 ComboBox
Call Cbo_Spalte11 'ruft das Makro auf
End Sub
Private Sub ComboBox3_Change()
'Filtert Spalte L (=Spalte 12)

Criteria1 = UserForm1.ComboBox3 & "*"
ActiveSheet.ListObjects("Tabelle2").Range.AutoFilter Field:=12, Criteria1:=UserForm1.ComboBox3 '11 steht für die Spalte die gefiltert wird.
End Sub
Private Sub Cbo_Spalte14()

Dim oDic14 As Object, meAr14
Dim A As Long

Set oDic14 = CreateObject("Scripting.Dictionary")

With Sheets("Tabelle1")
    meAr14 = .Range("N7", .Cells(.Rows.Count, "N").End(xlUp)).SpecialCells(xlCellTypeVisible)
End With

For A = 1 To UBound(meAr14)
  oDic14(meAr14(A, 1)) = 0
Next

ComboBox1.List = oDic14.keys

End Sub
Private Sub Cbo_Spalte13()
Dim ws As Worksheet
Dim iZeile As Long

Set ws = Sheets("Tabelle1")

For iZeile = 7 To ws.Cells(Rows.Count, "M").End(xlUp).Row
    If WorksheetFunction.CountIf(ws.Range("M7:M" & iZeile), ws.Cells(iZeile, "M")) = 1 And _
        ws.Rows(iZeile).Hidden = False Then _
    ComboBox2.AddItem ws.Cells(iZeile, "M")
Next iZeile
End Sub
Private Sub Cbo_Spalte11()
Dim ws As Worksheet
Dim iZeile As Long

Set ws = Sheets("Tabelle1")

For iZeile = 7 To ws.Cells(Rows.Count, "L").End(xlUp).Row
    If WorksheetFunction.CountIf(ws.Range("L7:L" & iZeile), ws.Cells(iZeile, "L")) = 1 And _
        ws.Rows(iZeile).Hidden = False Then _
    ComboBox3.AddItem ws.Cells(iZeile, "L")
Next iZeile
End Sub

tarten".

Das Ziel ist, dass in Spalte 13 und 11 mehrere Filter angewandt werden können. Solle heißen das ich Kriterien sozusagen hinzufügen möchte. Ein Beispiel Szenario:

- Spalte 14 wird nach S gefiltert dann hätte ich gerne in einer Tabelle in Spalte 13 SEA und SPS. Je durch ein Klick in der Combobox auszuwählen.

ich hoffe ich habe alles verständlich erklärt. 


Danke!

PS: Bitte darauf achten das es nicht wie im Beispiel manchmal nur 2 Filter sind. Es wäre gut wenn man sozusagen unendlich Filtermöglichkeiten hat.