Problem bei Filtern

[elamigo]

Guten Tag Leute,

aus Datenschutzgründen kann ich leider nur sehr schwer eine BSP Datei hochladen.
ich hoffe wir können es vllt schon so schaffen.
also anbei der Code für 3 Comboboxen über welche gefiltert werden soll. Hat alles super geklappt, nun ist eine Spalte dazu gekommen und der 3. Filter funktioniert nicht mehr. Ich habe "Field=" angepasst aber geht trotzdem nicht   hat einer eine Idee?

Code:

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

Code:

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

Code:

Private Sub ComboBox3_Change()
'Filtert Spalte K (=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

[Kuwer]

Hallo,

Spalte K ist die Spalte 11.

Gruß Uwe

[elamigo]

ist leider nur falsch kommentiert :D daran liegt es leider nicht

[elamigo]

erledigt -  lag an einem weiteren Makro.