Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1776to1780
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wie viele Filtereinträge aktiv sind.

Wie viele Filtereinträge aktiv sind.
15.08.2020 10:15:26
Der
Hallo zusammen,
Ich habe einen gewöhnlichen Filter in der ersten Zelle, in diesem Filter kann man mehrere Einträge auswählen.
Um zu verhindern, dass hier mehrere ausgewählt sind, würde ich gerne abfragen wollen, ob mehr als eine Auswahl getroffen wurde.
Ich habe mir überlegt, ich könne ermitteln welche die Erste und Letzte Zeile ist.
Und den Inhalt der Zellen miteinander vergleichen, der müsste ja identisch sein.
Diese Variante erscheint mir aber recht umständlich, habt Ihr eine bessere Idee?
lg der Tim

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wie viele Filtereinträge aktiv sind.
15.08.2020 10:42:05
Nepumuk
Hallo Tim,
ist das ein Datumsfilter?
Gruß
Nepumuk
AW: Wie viele Filtereinträge aktiv sind.
15.08.2020 11:10:08
Der
Nein kein Datum, 2-3 stellige Zahlen.
AW: Wie viele Filtereinträge aktiv sind.
15.08.2020 11:16:09
Nepumuk
Hallo Tim,
teste mal:
Option Explicit

Public Sub Tim()
    Dim vntFilter As Variant
    With Tabelle1
        If .AutoFilterMode Then
            If .FilterMode Then
                If .AutoFilter.Filters(1).On Then
                    vntFilter = .AutoFilter.Filters(1).Criteria1
                    If IsArray(vntFilter) Then
                        vntFilter = Join(vntFilter, vbLf)
                    End If
                    MsgBox Replace$(vntFilter, "=", vbNullString)
                End If
            End If
        End If
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Wie viele Filtereinträge aktiv sind.
15.08.2020 11:31:42
Daniel
Hi Nepumuk
teste mal mit genau zwei Filterkriterien.
Gruß Daniel
AW: Wie viele Filtereinträge aktiv sind.
15.08.2020 11:40:51
Nepumuk
Hallo Daniel,
stimmt, aber kein Problem:
Option Explicit

Public Sub Tim()
    Dim vntFilter As Variant
    With Tabelle1
        If .AutoFilterMode Then
            If .FilterMode Then
                If .AutoFilter.Filters(1).On Then
                    vntFilter = .AutoFilter.Filters(1).Criteria1
                    If IsArray(vntFilter) Then
                        vntFilter = Join(vntFilter, vbLf)
                    Else
                        If .AutoFilter.Filters(1).Criteria2 <> vbNullString Then
                            vntFilter = .AutoFilter.Filters(1).Criteria1 & _
                                vbLf & .AutoFilter.Filters(1).Criteria2
                        End If
                    End If
                    MsgBox Replace$(vntFilter, "=", vbNullString)
                End If
            End If
        End If
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Wie viele Filtereinträge aktiv sind.
15.08.2020 12:05:23
Der
Danke Nepumuk
bei mir steigt er nicht in die erste If Funkton ein

With Tabelle1
If .AutoFilterMode Then
MsgBox ("test")
Weder mit einer, zwei oder allen als Auswahl
AW: Wie viele Filtereinträge aktiv sind.
15.08.2020 12:10:20
Der
Nachtrag: 

With Sheets("Tabelle1")
If .AutoFilterMode Then
If .FilterMode Then
So klappt es, vielen Dank
AW: Wie viele Filtereinträge aktiv sind.
15.08.2020 11:24:04
Daniel
Hi
erste und letzte sichtbare Zelle vergleichen funktioniert nur dann zuverlässig, wenn die Liste sortiert ist.
per Formel so:
1. füge der Tabelle eine Hilfsspalte hinzu mit dieser Formel ab Zeile 2: 
=teilergebnis(3;A2)
2. mach die Prüfung mit dieser Formel, die Hilfsspalte ist hier B: 
=WENN(ZÄHLENWENN(B:B;">0")=ZÄHLENWENN(A:A;INDEX(A:A;MAX(B:B)));"einzel";"mehrfach")
gruß Daniel
Anzeige
korrektur
15.08.2020 11:26:18
Daniel
die Formel in der Hilfsspalte B muss sein: 
=teilergebnis(3;a2)*zeile()

AW: korrektur
15.08.2020 12:18:07
Der
Hi Daniel,
interessanter Ansatz, Danke.
Ich glaube aber das funktioniert so nicht. Die Tabelle geht z.B. vom A2 bis A2000.
Wenn Ein Filter gesetzt ist von A300 bis A450.
Mit Teilergebnissen zu Arbeiten wird hier schwer, da ich ja die Range vorher nicht kenne.

138 Forumthreads zu ähnlichen Themen

Árbeitstage im Monat
Kurt

Guten Morgen,
habe mal etwas in Google gesucht und bin mit dieser Formel fündig geworden:
=SUMMENPRODUKT(--(WOCHENTAG(ZEILE(INDIREKT(V44&":"&DATUM(JAHR(V44);MONAT(V44)+1;0)));2)<6)) &" Tage"
Wenn in der Zelle "V44" 01.01.2008 drin steht kommt als Ergebnis "X44" = 23...
02.09.2008 11:20:00
Thread-ID: 1006700
17 Beiträge
Anzeige
Tage in Zeiträumen best Monaten zuordnen
Gorkij

Moin,moin,
liebe Leute, habe ein Problem und hoffe Unterstützung, nachdem alle meine zusammengebastelten Hilfskonstruktionen nicht taugen:
In den Spalten b und c in den Zeilen 2 - 100 stehen jeweils Anfangs- und Enddaten von Unterbrechungszeiten, in der Spalte a der Name des jeweili...
22.04.2009 12:04:12
Thread-ID: 1070302
3 Beiträge
Wieviele Formulare sind in Excel möglich?
Frank

Hallo Zusammen!!!
Ich wünsche allen ein wunderbar verlängertes Pfingstwochenende!!!
Wieviele Formulare kann ich eigentlich in Excel 2003 in einer Arbeitsmappe erstellen. Ich habe einen dienstlichen Auftrag und würde mich gern vorher informieren ob das Erstellen von Formularen begrenzt...
29.05.2009 20:36:06
Thread-ID: 1078298
4 Beiträge
Anzeige
Einzigartige Tage im Monat zählen
Michael

Hallo,
ich komme mit meinem Problem irgendwie nicht weiter, vielleicht hat jemand von euch eine Idee?
Ich habe einer Spalte mit Datumseinträgen, wobei das selbe Datum auch mehrmals eingetragen sein kann und manche Tage auch ausgelassen sind.
Wie kann ich die Anzahl der einzigartigen...
15.03.2010 13:20:44
Thread-ID: 1145900
12 Beiträge
Anzahl Tage eines Zeitraumes Jahres zuordnen
Carmen

Hallo Zusammen,
das ist sicher ganz einfach und wenn ich angebe Excel gut, sollte ich dies auch selber lösen können, aber ich bekomme es nicht hin.
Folgende Herausforderung: Ich habe einen Zeitraum von 21.02.06 bis 25.02.10 nun möchte ich berechnen wieviele Tage davon in welches Jahr fa...
21.04.2010 15:07:11
Thread-ID: 1153141
14 Beiträge
Tage eines Monats suchen und die Summe bilden
Eva-Maria

Hallo zusammen,
Vielleicht hat jemand zeit und kann mir helfen, trotz WM ;o)
Damit ich meine Gutscheine unter kontrolle habe benötige ich die Summe vom Monat Jan, Feb......
Ich trage das Datum ein an dem ich einen Gutschein verkaufe. Die Gutscheine sind für drei Möglichkeiten untert...
21.06.2010 23:28:45
Thread-ID: 1163292
15 Beiträge
Berechnung der Schulunstage pro Monat
mommonde

Hallo miteinander,
ich habe da ein kleines Problem mit einer Formel.
Mehrere Dinge müssen gleichzeitig abgefragt werden .
Ich müsste wissen wie viele Tage ein Mitarbeiter pro Monat an einer Schulung teilgenommen hat.
Anbei ein Beispiel.
Beginn Ende...
12.07.2010 12:28:13
Thread-ID: 1166587
11 Beiträge
Anzahl Tage ohne bestimmte Kriterien
amintire

Hallo alle zusammen,
ich würde gerne die Gesamttage zählen lassen.
Also z.B.
A1 = 22.11.2010
B1 = 07.12.2010
C1 = Anzahl Tage A1 - B1
D1 = Restzeit (ab Tag wo Tabelle geöffnet wird)
Hier sollen aber nur die Tage gezählt werden ohne Wochenenden, Feiertagen und Abwesen...
23.11.2010 19:33:42
Thread-ID: 1188383
10 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
5
2
3
7
11
13
14
10
9
2
4
6
2
4
17
8
4
7
8
3
2
7
1
4