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

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

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige