Microsoft Excel

Herbers Excel/VBA-Archiv

Filtern ohne Fenster zu sehen

Betrifft: Filtern ohne Fenster zu sehen von: Sandra
Geschrieben am: 31.08.2004 07:54:43

Guten Morgen

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

  


Betrifft: AW: Filtern ohne Fenster zu sehen von: Andi
Geschrieben am: 31.08.2004 08:06:13

Hi,

mit:

Application.ScreenUpdating = False

ausschalten, danach

Application.ScreenUpdating = True

Gruß Andi


  


Betrifft: THANKS - einfach und effizient von: Sandra
Geschrieben am: 31.08.2004 08:22:00

s


 

Beiträge aus den Excel-Beispielen zum Thema "Filtern ohne Fenster zu sehen"