Office: (Office 2003) Spezialfilter erst bei Button-Klick

Hallo zusammen,

ich benutze den Filter um über eine Textbox 6 Spalten zu filtern.
Nur hätte ich gerne kein Livefilter der bei jeder Eingabe filtert sondern erst bei Return anfängt zu such.
Geht das ?

Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("A17").CurrentRegion.AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Range("SuchKriterien"), _
Unique:=False
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

danke schonmal

 

Hallo Bartman,

wenn Dein Code nicht bei jeder Eingabe, sondern erst nach der Bestätigung durch die Enter-Taste gestartet werden soll, dann darfst Du Ihn nicht durch das Calculate-Ereignis auslösen lassen, sondern must das Change-Ereignis benutzen.

Setz Deinen Code mal in:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

und lösche ihn aus

Code:

Private Sub Worksheet_Calculate()

und probier dann mal ob alles so klappt wie Du es möchtest.