Private Sub CommandButton_use_filter_Click()
On Error Resume Next
Sheets("daten").Select
Selection.AutoFilter Field:=7, Criteria1:="ComboBox_motor_typ.range"
Selection.AutoFilter Field:=8, Criteria1:="ComboBox_motor_model.range"
End Sub
So werden die Filter zwar gesetzt, aber der Filter läßt alles verschwinden ?!?
kann mir jemand sagen was ich hier verkehrt mache?
Vielen Dank schon mal,
grüße
Carl
Private Sub CommandButton_use_filter_Click()
On Error Resume Next
Sheets("daten").Select
Selection.AutoFilter Field:=7, Criteria1:="=" & ComboBox_motor_typ.range
Selection.AutoFilter Field:=8, Criteria1:="=" & ComboBox_motor_model.range
End Sub
Gruß
Nepumuk
Private Sub CommandButton_use_filter_Click()
Sheets("daten").AutoFilter.Range.AutoFilter Field:=7, Criteria1:="=" & ComboBox_motor_typ
Sheets("daten").AutoFilter.Range.AutoFilter Field:=8, Criteria1:="=" & ComboBox_motor_model
End Sub
Gruß
Nepumuk
Public Sub test()
Tabelle1.ComboBox1.ListIndex = -1
End Sub
Gruß
Nepumuk
dass die in einer Excelmappe sind, habe ich eigentlich vorausgesetzt.
LOL! Ja OK! kleiner schnitzer :)
soll ich die Code zeile in das Makro für den Filter mit hinenschreiben?
ich bin ein wenig ratlos!
...carl
Private Sub reset_filter_Click()
' Delete all Filter
On Error Resume Next
If Sheets("daten").FilterMode Then Sheets("daten").ShowAllData
Sheets("market TOTAL").ComboBox_engine_type_Change.ListIndex = -1
End Sub
aber da tut sich gar nix! :(
kannst Du erkennen wo der Fehler liegt?
thnx
Carl
laufzeitfehler'438'
objekt unterstützt diese Eigenschaft oder Methode nicht
zu deiner zweiten Frage:
ichhab den Code in die "reset filter" Prozedur eingefügt
der gesamte code der bei dem Button hiterlegt ist sieht jetzt so aus :
Private Sub reset_filter_Click()
' Delete all Filter
If Sheets("daten").FilterMode Then Sheets("daten").ShowAllData
Sheets("market TOTAL").ComboBox_engine_type_Change.ListIndex = -1
End Sub
war das falsch?