2 Filter

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: 2 Filter
von: simsim
Geschrieben am: 06.05.2015 22:18:18

Hi VBA Fans,
ich hätte eine Frage.
In einer Tabelle darf nur ein Filter in einer bestimmten Spalte vorkommen, wenn ein anderer Filter in einer anderen Spalte vorkommt, soll eine Msgbox als Info auftreten, dass es mehr als ein Filter in der Tabelle ist.
Danke im Voraus.

Bild

Betrifft: AW: 2 Filter
von: Nepumuk
Geschrieben am: 06.05.2015 22:30:14
Hallo,
hast du in einer der Spalten oder in der Überschrift Formeln?
Gruß
Nepumuk

Bild

Betrifft: AW: 2 Filter
von: simsim
Geschrieben am: 06.05.2015 22:44:54
Hi,
nein, ich möchte auch keine Formel einsetzen.

Bild

Betrifft: AW: 2 Filter
von: Nepumuk
Geschrieben am: 06.05.2015 22:46:47
Hallo,
dann gibt es keine Lösung.
Gruß
Nepumuk

Bild

Betrifft: AW: 2 Filter
von: simsim
Geschrieben am: 06.05.2015 22:54:55
Hallo Nepumuk,
aber wie wär's mit einer Formel
Gruss
Simsim

Bild

Betrifft: AW: 2 Filter
von: Nepumuk
Geschrieben am: 06.05.2015 22:58:13
Hallo,
so:

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Calculate()
    Dim objFilter As Filter
    Dim lngCount As Long
    For Each objFilter In AutoFilter.Filters
        If objFilter.On Then lngCount = lngCount + 1
    Next
    If lngCount > 1 Then MsgBox "Panik"
End Sub

irgendeine Formel in der Liste oder der Überschrift löst die Neuberechnung aus und diese Event kannst du auswerten. Es genügt wenn du irgendwo in der Tabelle eine Formel hast welche sich auf die gefilerte Liste bezieht.
Gruß
Nepumuk
Gruß
Nepumuk

Bild

Betrifft: AW: 2 Filter
von: simsim
Geschrieben am: 06.05.2015 23:06:11
Hi Nepumuk,
vielen Dank noch mal.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "2 Filter"