Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1232to1236
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
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzahl unersch. Werte aller angezeigten DS

Anzahl unersch. Werte aller angezeigten DS
Stephan
Hallo Profis,
Wie kann ich bei aktivem Autofilter die angezeigten Datensätze nach versch. Kriterien unter VBA zählen. Ichbenötige als Ausgabe die Anzahl der angezeigten Datensätze sowie die Anzahl der unterschiedlichen Werte sie Beispieldatei. Währe toll wenn es unter Formel und VBA klappen würde. Lösungsansatz wurd mir bereits in vorausgehender Frage zugespielt.
https://www.herber.de/bbs/user/76908.xls
Danke für eure Mühe.
Gruß Stephan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Variante
09.10.2011 17:14:35
Stephan
Hallo Tino,
Super Funktion funktioniert sehr gut, genau wie ich es wollte. Danke für Deine Mühe, da merkt man den unterschied zwischen Laie und Profi sehr deutlich.
Gruß
Stephan
AW: Anzahl unersch. Werte aller angezeigten DS
09.10.2011 17:13:22
fcs
Hallo Stephan,
hier eine Variante für die benutzerdefinierte Funktion zur Berechnung der Werte.
Gruß
Franz
Sheet1

 K
1VBA
24
32
44
52
63

Formeln der Tabelle
ZelleFormel
K2=fncRecords(1;A11)
K3=fncRecords(2;B11;"x")
K4=fncRecords(3;B11;"x")
K5=fncRecords(4;B11)
K6=fncRecords(5;B11)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
'Auswertefunktion im Zusammenhang mit Autofilter Function fncRecords(intFunktion, rngAutofilter As Range, _ Optional vWert As Variant) As Long 'Als Bezugszelle die Zelle unterhalb des Spaltentitels wählen Dim wks As Worksheet, rngWerte As Range, Zelle As Range Dim oCollection As New Collection Dim Spalte As Long, Zeile1 As Long, Zeile2 As Long On Error GoTo Fehler Set wks = rngAutofilter.Parent With wks If .AutoFilterMode = True Then With .AutoFilter.Range Spalte = rngAutofilter.Column - .Column + 1 Zeile1 = .Row + 1 Zeile2 = .Row + .Rows.Count - 1 End With Set rngWerte = .Range(.Cells(Zeile1, Spalte), .Cells(Zeile2, Spalte)) Select Case intFunktion Case 1 'Zählen der angezeigten Datensätze - nicht leere fncRecords = Application.WorksheetFunction.Subtotal(3, rngWerte) Case 2 'Zählen der sichtbaren mit Wert vWert in Spalte For Each Zelle In rngWerte.Cells If Zelle.EntireRow.Hidden = False Then fncRecords = fncRecords + Application.WorksheetFunction.CountIf(Zelle, vWert) End If Next Case 3 'Zählen aller Zellen mit Wert vWert in Spalte fncRecords = Application.WorksheetFunction.CountIf(rngWerte, vWert) Case 4, 5 '5 = alle verschiedenen im Bereich, 4 = sichtbare verschiedene im Bereich For Each Zelle In rngWerte.Cells If ((intFunktion = 4 And Zelle.EntireRow.Hidden = False) Or intFunktion = 5) _ And Zelle "" Then oCollection.Add Zelle.Value, CStr(Zelle.Value) fncRecords = fncRecords + 1 End If NextZelle: Next End Select End If End With Fehler: With Err Select Case .Number Case 0 'Alles OK Case 457 Resume NextZelle Case Else End Select End With Set oCollection = Nothing: Set wks = Nothing Set rngWerte = Nothing Set Zelle = Nothing End Function
Anzeige

79 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
Und() bzw. ODER() in Matrixformeln
Sibylle

Hallo,
sollen in einer Matrixformel 2 Bedingungen durch UND() verknüpft werden, funktioniert dies nicht.
Was ist die Ursache?
Wichtiger: wie sieht die Lösung aus?
Gruß
Sibylle
13.02.2009 11:02:00
Thread-ID: 1050412
9 Beiträge
Im Diagramm Formel in Diagrammbeschriftung oder...
martin

... Datenbeschriftung aus eigener Zelle.
Guten Morgen allerseits.
1.) Gerne würde ich in der Datenbeschriftung eines Diagrammes etwas ausrechnen lassen (ohne dass das Diagramm verändert wird). Geht das? In meinem Beispiel Wäre das := 100% - Wert in %
2.) Wenn das nicht geht, würde i...
05.06.2009 09:31:26
Thread-ID: 1079339
2 Beiträge
Anzeige
Was bedeutet das Zeichen "^" in Formeln
Merlin

Was bedeutet das Zeichen "^" in Formeln?
21.10.2009 10:45:46
Thread-ID: 1111008
6 Beiträge
Formel nur einmal berechnen oder ?
alex

Hi Profis,
hier mein Problem - https://www.herber.de/bbs/user/69683.xlsx
Bei der Lohnberechnung dürfen bereits berechnete Zellen nicht noch einmal Berechnet werden.
Habt Ihr einen Lösungsvorschlag.
Darstellung und Erläuterung in der angehängten Datei.
Danke schon einmal für...
21.05.2010 18:11:35
Thread-ID: 1158332
10 Beiträge
Was bedeutet >>For colIndex
Dietmar

Hallo in die Abendrunde,
kann mir jemand diesen Code erklären? Es scheint ein AusleseCode zu sein, der das Sheet als Textdatei ausliest.
Ich will das zugrundeliegende Sheet neu gestalten.
Meine Frage:
Kann es sein dass der Code Daten ausliest, die farblich hinterlegt sind? Wenn...
01.07.2010 21:16:52
Thread-ID: 1165012
5 Beiträge
Sverweis gibt bei Nullwert Datum zurück?
Sebastian

Hallo zusammen,
mein Sverweis sucht mir ein Datum. Wenn jedoch kein Wert eingetragen ist, dann gibt er mir das Datum "00.01.1900" aus. Wie kann ich das verhindern?
=WENN(ISTNV(SVERWEIS(AP1055;'Tabelle1'!G:BP;62;FALSCH));"";SVERWEIS(AP1055;'Tabelle1'!G:BP;62;FALSCH) )
Danke u. Gruß
15.11.2010 16:34:32
Thread-ID: 1186882
7 Beiträge
VBA Fehlermeldung bei Verknüpfung mit Datenbank
Max

Hi liebes Herber Excel Forum
Ich bin neu hier und bin gerade dabei ein bisschen in VBA zu programmieren
Bin grad dabei eine Access Datenbank über VBA mit Excell zu verknüpfen. Alles kein Problem. Beim Starten erscheint die Userform ordnungsgemäß, aber dann kommt die Fehlermeldung "Objek...
20.04.2011 08:40:38
Thread-ID: 1211120
2 Beiträge
Anzeige

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
3
13
8
1
3
5
9
4
6
1
2
2
4
3
2
5
10
2
4
4
6
2
1
2
3