2 Filter

Forumthread: 2 Filter
6 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: 2 Filter

2 Filter

07.05.2015 00:18:18

simsim

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.

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: 2 Filter

07.05.2015 00:30:14

Nepumuk
AW: 2 Filter

07.05.2015 00:44:54

simsim
AW: 2 Filter

07.05.2015 00:46:47

Nepumuk
AW: 2 Filter

07.05.2015 00:54:55

simsim
AW: 2 Filter

07.05.2015 00:58:13

Nepumuk
AW: 2 Filter

07.05.2015 01:06:11

simsim

AW: 2 Filter

07.05.2015 00:30:14

Nepumuk

Hallo,
hast du in einer der Spalten oder in der Überschrift Formeln?
Gruß
Nepumuk

AW: 2 Filter

07.05.2015 00:44:54

simsim

Hi,
nein, ich möchte auch keine Formel einsetzen.

AW: 2 Filter

07.05.2015 00:46:47

Nepumuk

Hallo,
dann gibt es keine Lösung.
Gruß
Nepumuk

AW: 2 Filter

07.05.2015 00:54:55

simsim

Hallo Nepumuk,
aber wie wär's mit einer Formel
Gruss
Simsim

AW: 2 Filter

07.05.2015 00:58:13

Nepumuk

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

AW: 2 Filter

07.05.2015 01:06:11

simsim

Hi Nepumuk,
vielen Dank noch mal.