habe keinen Schimmer von VBA, außer bisschen Makro-Recorder. Bin aber für mich auf ein coole Funktion gestoßen. Eine ComboBox1_Change() ist verbunden mit einer Zelle die gleichzeitig eine Worksheet_SelectionChange ist.
Aber immer ist diese Funktion nicht zu gebrauchen. Deshalb hätte ich gern eine Funktion, welche die ComboBox1_Change() deaktiviert.
Ein Kontrollkästchen steuert die Zelle C4.
Die ComboBox1_Change() soll also nur funken, wenn in C4 = WAHR
So gehts nicht 😊
Private Sub ComboBox1_Change()
If Range("C4") "WAHR" Then GoTo Fehler
Application.ScreenUpdating = False
ActiveSheet.ListObjects("TabADB").Range.AutoFilter Field:=21, Criteria1:=Range("N2").Value
Application.ScreenUpdating = True
Fehler:
Exit Sub
End Sub
Freue mich über Hilfe.Gruß Thorsten