Clever-Excel-Forum

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 Huh

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

Hallo,

Spalte K ist die Spalte 11. Wink

Gruß Uwe

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

erledigt - lag an einem weiteren Makro.

elamigo

Kuwer

elamigo

elamigo