AW: VBA Zeilen ausblenden wenn 0
17.12.2008 13:32:38
Daniel
Hi
für sowas nimmt man den Autofilter in Calculate-Event:
(Code ins Modul des Tabellenblatts einfügen!)
da der Autofilter das Calculate-Event auch nochmal aufruft, und sich somit das Makro ständig selbst aufrufen würde (was zur dauerschleife führt), muss man das Aufrufen der Events unterbinden.
Bis Excel 2003 gabs hierfür die "Application.EnableEvents"-Eigenschaft, damit würde das Makro so aussehen:
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Range("A10:A100").AutoFilter Field:=1, Criteria1:="="
Application.EnableEvents = True
End Sub
allerdings wurde meines Wissens nach das Application.EnableEvents in Excel 2007 abgeschafft, dh. man muss diese Funktionalität mithilfe einer Variable selbst nachbauen
die Variable muss ausserhalb der der Prozedur, ganz oben unter Option Explicit dimensioniert werden:
Option Explicit
Dim EventsAus As Boolean
Private Sub Worksheet_Calculate()
If EventsAus Then Exit Sub
EventsAus = True
Range("A10:A100").AutoFilter Field:=1, Criteria1:="="
EventsAus = False
End Sub
wenn, analog dem normalen ausblenden die Filter-Markierungen nicht erscheinen sollen, kannst du das mit dieser Erweiterung in der autofilter-Zeile erreichen:
Range("A10:A100").AutoFilter Field:=1, Criteria1:="=", VisibleDropDown:=False
Gruß, Daniel