Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1424to1428
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
Inhaltsverzeichnis

2 Filter

2 Filter
06.05.2015 22: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
Anzeige
AW: 2 Filter
06.05.2015 22:30:14
Nepumuk
Hallo,
hast du in einer der Spalten oder in der Überschrift Formeln?
Gruß
Nepumuk

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

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

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

AW: 2 Filter
06.05.2015 22: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

Anzeige
AW: 2 Filter
06.05.2015 23:06:11
simsim
Hi Nepumuk,
vielen Dank noch mal.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige