Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Autofilter schnell zurücksetzen | Herbers Excel-Forum


Betrifft: Autofilter schnell zurücksetzen von: Lutz
Geschrieben am: 13.08.2012 12:40:55

Hallo Excel Profis,

ich habe ein Makro mit dem ich alle Autofilter zurücksetze:

Sub AFilter_off()
Dim Kopf As String
Dim Stil As Integer
On Error GoTo Fehler
Selection.AutoFilter
Exit Sub
Fehler:
Kopf = "xxxx"
Stil = vbOKOnly + vbExclamation
MsgBox Err.Description, Stil, Kopf
End Sub
Das funktioniert auch, ist aber bei großen Listen sehr langsam.

Ich denke der setzt jeden Filter zurück auch wenn er gar nicht gesetzt war?!

Wenn ich das manuell aufzeichne:
Sub Makro2()
    ActiveSheet.Range("$A$1:$W$64481").AutoFilter Field:=22
    ActiveSheet.Range("$A$1:$W$64481").AutoFilter Field:=6
End Sub

Geht das rasend schnell ist aber natürlich nicht immer einsetzbar.

Wie bekommt man es schneller hin das immer alle gesetzten Autofilter rausgenommen werden?

Hat jemand eine Idee?

Vielen Dank und viele Grüße Lutz

  

Betrifft: AW: Autofilter schnell zurücksetzen von: KlausF
Geschrieben am: 13.08.2012 12:52:32

Hallo Lutz

ActiveSheet.AutoFilterMode = False

Gruß
Klaus


  

Betrifft: ActiveSheet.AutoFilterMode = False von: KlausF
Geschrieben am: 13.08.2012 12:53:20

Gruß
Klaus


  

Betrifft: AW: ActiveSheet.AutoFilterMode = False von: Lutz
Geschrieben am: 13.08.2012 14:45:41

Hallo Klaus,

vielen Dank, klappt wunderbar und schnell - nur schaltet er dann die Autofilter ganz ab.

Nehme das von Daniel das ist auch rasend schnell und die Autofilter bleiben als solches stehen.

Vielen lieben Dank für Deine Hilfe - viele Grüße Lutz


  

Betrifft: AW: Autofilter schnell zurücksetzen von: Daniel
Geschrieben am: 13.08.2012 12:53:39

Hi
Probier mal:

activesheet.ShowAllData

wenn du viele rechenintensive Formeln hast, kannst du auch vor dem Ändern des Filtern die Automatische Neuberechnung auf manuell stellen und nach dem Ändern des Filters wieder auf automatsich.
Excel berchnet nämlich bei einer Änderung des Filters alle Formeln neu. (allerdings hat der Filter mit ausnahme von "Teilergebnis" keinen Einfluss auf die Formelergebenisse)


Gruß Daniel


  

Betrifft: AW: Autofilter schnell zurücksetzen von: Lutz
Geschrieben am: 13.08.2012 14:46:35

Hallo Daniel,

vielen Dank, klappt wunderbar und schnell.


Vielen lieben Dank für Deine Hilfe - viele Grüße Lutz


  

Betrifft: AW: Autofilter schnell zurücksetzen von: Lutz
Geschrieben am: 13.08.2012 14:46:38

Hallo Daniel,

vielen Dank, klappt wunderbar und schnell.


Vielen lieben Dank für Deine Hilfe - viele Grüße Lutz


Beiträge aus den Excel-Beispielen zum Thema "Autofilter schnell zurücksetzen"