Filtern ohne Fenster zu sehen
31.08.2004 07:54:43
Sandra
Habe ein File mit 3 Worksheets. Im ersten, möchte ich ne Übersicht machen aus den Daten in Sheet 3. Um herauszufinden, wieviele Einträge im Sheet 3 in der Zeitspanne zwischen v1 und v2 in der Kategorie DVR gemacht wurden, habe ich folgendes Filter gemacht. Es funktioniert, leider sehe ich jedoch bei jedem Ausführen das Sheet 3 kurz aufblitzen. Kann man das ausschalten oder gibts ne andere Lösung?
Gruss
Sandra
Public mDelta as Integer
mDelta = 3
Sub filt
Sheets(3).Activate
'SelectTable 'Selects the entire table
' filters for last updates
v1 = CDbl(Date - mDelta * 30) ' number of days taken of the current date
v2 = CDbl(Date + 1)
Selection.AutoFilter Field:=32, Criteria1:=">" & v1, Operator:=xlAnd,
Criteria2:="<" & v2
Selection.AutoFilter Field:=10, Criteria1:="DVR"
mDVR = Range("G1").Value
Sheets(1).Select
Range("J17").Value = mDVR
End Sub