Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filter auf Tabelle gesetzt

Forumthread: Filter auf Tabelle gesetzt

Filter auf Tabelle gesetzt
20.08.2007 19:56:00
Markus
Hy,
ich habe eine Tabelle Personal.
Ich möchte per VBA feststellen ob mindestens ein Filter gesetzt worden ist.
(Daten, Filter, Autofilter ist aktiv)
Danke für eine Antwort!
Markus

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter auf Tabelle gesetzt
20.08.2007 20:00:00
Hajo_Zi
Hallo Markus,
mal ohne Testung, vielleicht ist es das.

Sub AlleFilterEntfernen()
With ActiveWorkbook.ActiveSheet
If .FilterMode Then
.ShowAllData
MsgBox "Es wurden alle Auto-Filter entfernt!", vbOKOnly, "   Filter deaktiviert"
End If
End With
End Sub


von Nepumuk

Anzeige
AW: Filter auf Tabelle gesetzt
20.08.2007 20:10:00
Beate
Hallo,
sobald gefiltert wird, springt die MsgBox an:
Private Sub Worksheet_Calculate()
    If ActiveSheet.FilterMode Then MsgBox "Autofilter aktiv"
End Sub
Das Makro gehört ins Codefenster der Tabelle.
Da das Autofiltern aber kein Ereignismakro auslöst, bedarf es einer Hilfszelle, die beim Filtern neu berechnet wird und die dann eigentlich das Makro anstößt, hier E1:
 ABCDE
1Wert1Wert2Wert3 506
2888783  
389013  
4224443  
5894678  
6412367  
7995434  
8213635  
9901867  
10426286  

Formeln der Tabelle
ZelleFormel
E1=TEILERGEBNIS(9;C2:C10)

Gruß,
Beate
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige