Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzahl aus "Zählen ohne Duplikate" in VBA

Forumthread: Anzahl aus "Zählen ohne Duplikate" in VBA

Anzahl aus "Zählen ohne Duplikate" in VBA
urmila
Hallo zusammen, und guten Morgen...
zu meinem Problem gibts diverse Beispiele, doch nicht das wonach ich suche....
Ich habe eine Liste, da stehen zig-viele Werte, die mehrmals (nicht durcheinander sonder schon sortiert) auftauchen. Ich will nicht nur das Zählen ohne Duplikate, sondern auch die Anzahl haben.
Im Internet habe ich diese (häufig vorkommende) Formel gefunden
=SUMME(WENN(A3:A650"";1/ZÄHLENWENN(A3:A650;A3:A650)))
Das ist ja was ich brauche, doch ich würde das gerne in VBA Skript, z.B. in MsgBox dargstellt haben (also die Anzahl gesamt ohne Duplikate)
Ich weiß auch dass ich diesen Wert in einer Zelle eintragen kann und im MsgBox den Zellwert ausgeben kann, doch das will ich nicht.....da ich die Tabelle ohne Formeln haben möchte.....
Ich hoffe ihr könnt mir helfen
Danke und LG
Urmila
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
vielleicht so? Gruß
09.09.2010 08:29:26
robert 

Sub TT()
MsgBox Anzahl
End Sub


Function Anzahl()
Dim wks As Worksheet, rngC As Range, objCounter As Object
Set objCounter = CreateObject("scripting.dictionary")
For Each wks In Worksheets
For Each rngC In wks.Range("a3:a650")
If rngC  "" And Not objCounter.exists(rngC.Value) Then _
objCounter.Add rngC.Value, rngC.Value
Next
Next
Anzahl = objCounter.Count
End Function

Anzeige
danke robert, das wars.... :-)
09.09.2010 09:08:02
urmila
LG
Urmila
Oder so...
09.09.2010 09:01:44
JogyB
Hallo Urmila,
ganz kurz:
MsgBox Evaluate("=SUM(IF(A3:A650"""",1/COUNTIF(A3:A650,A3:A650)))")
Die Laufzeit könnte bei Roberts Lösung besser sein, habe ich jetzt aber nicht probiert.
Gruß, Jogy
auch dir danke Jogy....klappt auch
09.09.2010 09:10:12
urmila
LG
Urmila
Anzeige
AW: noch eine Bitte
09.09.2010 09:36:22
urmila
Sorry,
habs vergessen nachzufragen wie ich das Tabellenblatt z.B. Rot ansprechen könnte....
Danke und lieben Gruß
Urmila
AW: noch eine Bitte
09.09.2010 10:24:38
Hajo_Zi
Hallo Urmilla,
einfach in Excel mal testen
=SUMME(WENN(Rot!A3:A650"";1/ZÄHLENWENN(A3:A650;A3:A650)))

Anzeige
vielleicht doch eher...
09.09.2010 10:31:45
JogyB
so:
=SUMME(WENN(Rot!A3:A650"";1/ZÄHLENWENN(Rot!A3:A650;Rot!A3:A650)))
Gruß, Jogy
;

Forumthreads zu verwandten Themen

Variable Gültigkeitsliste ohne doppelte Werte
Susi

Hallo liebe Excel-Freunde,
ich möchte gerne aus einer Datentabelle den Inhalt einer Spalte für eine Auswertung über eine Variable Gültigkeitsliste ziehen.
Zur Verdeutlichung hier ein einfaches Spiel-Beispiel:
Spalte A Spalte B
Äpfel 10
Äpfel 20
Birnen...
28.11.2008 10:08:27
Thread-ID: 1028603
5 Beiträge
kkleinste ohne doppelte werte
gisela

Hallo zusammen,
nach einigen Stunden Recherche benötige ich noch mal Eure Hilfe.
Verschiedene Datumsangaben (siehe Datei) sollen aufsteigend ohne doppelte Werte angezeigt werden.
Meine Formel funktioniert nur bedingt. Irgendetwas stimmt nicht.
Kann mir bitte jemand helfen?
h...
31.01.2009 23:47:11
Thread-ID: 1045792
2 Beiträge
Spalte auswerten ohne Duplikate mit Kriterien
Dirk

Hallo Forum,
ich möchte eine Spalte dahingehend auswerten, dass ich wissen möchte wieviele VERSCHIEDENE Zahlen vorkommen, die größer sind als 31999 und kleiner als 33000 sind. Wie geht das mit einer Formel?
Gruß aus Hannover
Dirk
04.03.2009 13:09:31
Thread-ID: 1056343
5 Beiträge
Zählen ohne Duplikate mit 5 Bedingungen
Jonathan

Hallo liebe Experten,
ich stehe mal wieder vor einer Herausforderung, bei der ich Hilfe benötige.
Ich muss in einer Spalte Materialien ohne Duplikate zählen. Diese Materialien müssen dann 5 Bedingungen in anderen Spalten erfüllen.
Als Ergebnis soll mir dann die Anzahl ausgegben werd...
03.07.2009 12:33:02
Thread-ID: 1086200
17 Beiträge
Gültigkeite - Liste ohne doppelte Werte
susi

Hallo,
ich habe eine kleines, eher optisch unschönes Problem. In einer Tabelle wird von den Nutzern auf dem ersten TB eine Liste mit Werte al la ABC1000; ABC1010 ... eingetragen. Nun können sich aber diese Werte auch wiederholen. Auf einem zweiten TB habe ich eine Spalte die sich über DATEN...
13.08.2009 07:57:25
Thread-ID: 1095462
2 Beiträge
Anzeige
Durchschnitt Berechnen ohne Zahlenwerte
esMicha

Hallo.
Ich habe eine Frage und ich hoffe jemand kann mir helfen:
Ich habe eine Tabelle mit Werten (Zahlen und Buchstaben gemischt), denen je eine Zahl zugeordnet werden kann.
r = 1
+ = 2
1 = 3
2 = 4
a = 5
b = 6
m = 7
3 = 8
4 = 9
5 = 10
Wie ka...
27.11.2009 12:27:12
Thread-ID: 1120501
10 Beiträge
Zählen von Zellen ohne doppelte / mehrfache Werte | Herbers Excel-Forum
Julia
Hey Leute,
ich habe eine vorgefertigte Excel-Datei bekommen und muss in einem neuen Tabellenblatt die Anzahl der Daten zählen.
Die Daten befinden sich auf dem Tabellenblatt "VZ-KVs" im Bereich von "Z10S2:Z1009S2" (ist in einer Spalte).
Bei den Daten handelt es sich um Text mit Zahlen u...
08.02.2010 20:29:07
Thread-ID: 1136852
6 Beiträge
Anzeige
Liste ohne doppelte Werte
ing.grohn

Hallo Forum,
mit Daten Gültigkeit kann ich verhindern, daß doppelte Eintragungen vorkommen:
Einstellungen Benutzerdefiniert und dann z.B =UND(ISTZAHL(H1);ZÄHLENWENN($H$1:$H$30;H1)
ich habe hierzu ein Makro aufgezeichnet: With Selection.Validation .Delete .Add Type:=xlValidateCustom...
18.10.2010 19:34:20
Thread-ID: 1182959
4 Beiträge
Zählenwenn ohne Duplikate nach Kriterium
Philipp

Hallo Zusammen,
ich habe ein Problem, dass ich nicht lösen kann.
Beispielhaft sieht es so aus:
Artikel Farbe
111 Blau
111 Rot
111 Rot
222 Blau
222 Grün
222 Blau
222 Grün
222 Rot
333 Grün
333 Grün
Ich brauche jetzt das Verhältnis von unters...
22.09.2011 13:10:27
Thread-ID: 1231038
3 Beiträge
Zählen von Einträgen ohne Duplikate über 2 Spalten
Einträgen

Hallo zusammen,
ich möchte die Anzahl aller Einträge einer Liste zählen, ohne Duplikate. Spalte A Enthält den Namen, Spalte A den Vornamen. Ein Duplikat soll nun ein Eintrag sein, bei dem A und B doppelt vorkommen.
Bsp:
A B
Meier Katrin
Meier Hubert
...
06.03.2013 15:30:51
Thread-ID: 1302543
7 Beiträge
Anzeige
CMB ohne doppelte Werte
Heike

Hallo liebes Forum,
wie kann ich 2 CMB ohne doppelte Werte anzeigen lassen? Mit einer CMB klappt es!
Also, ich habe in meiner Userform 2 Frames erstellt mit je einer ComboBox.
In Frame1 wird die CMB1 mit folgendem Code ohne doppelte Einträge angezeigt:
Dim lIndxA As Long...
10.05.2013 23:10:44
Thread-ID: 1312526
8 Beiträge
VBA Anzahl ohne Duplikate inkl. Filtern
Verena

Hallo,
ich habe folgendes Problem: ich habe eine Tabelle mit vielen Daten. Ich möchte die Anzahl der numerischen Einträge einer Spalte zählen jedoch ohne die Duplikate. Allerdings muss ich vorher auch filtern. Ich weiß nicht so recht wie ich das alles kombinieren muss/ kann.
Also beispi...
24.08.2013 19:17:58
Thread-ID: 1328242
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Anzahl aus "Zählen ohne Duplikate" in VBA

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden VBA-Code in das Modul ein:

    Function Anzahl()
    Dim wks As Worksheet, rngC As Range, objCounter As Object
    Set objCounter = CreateObject("scripting.dictionary")

    For Each wks In Worksheets
        For Each rngC In wks.Range("A3:A650")
            If rngC <> "" And Not objCounter.exists(rngC.Value) Then _
                objCounter.Add rngC.Value, rngC.Value
        Next
    Next

    Anzahl = objCounter.Count
End Function

  4. Schreibe dann den Code für die MsgBox in ein weiteres Sub:

    Sub TT()
    MsgBox Anzahl
End Sub

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Führe das Makro TT aus, um die Anzahl der eindeutigen Werte zu sehen.

Häufige Fehler und Lösungen

  • Fehler: "Typenübereinstimmung"

    • Stelle sicher, dass die Zellen in dem angegebenen Bereich tatsächlich Werte enthalten und nicht leer sind.

  • Fehler: "Objekt nicht gefunden"

    • Überprüfe, ob der Name des Arbeitsblattes korrekt ist, wenn Du auf ein bestimmtes Blatt zugreifen möchtest.

  • Lösung für lange Laufzeiten

    • Wenn die Laufzeit der Funktion zu lang ist, versuche, die Anzahl der durchsuchten Zellen zu verringern oder gezielt nur ein bestimmtes Blatt abzufragen.

Alternative Methoden

Eine weitere Möglichkeit, die Anzahl eindeutiger Werte zu zählen, ist die Verwendung der Evaluate-Funktion in VBA. Hier ein Beispiel:

Sub ZählenOhneDuplikate()
    MsgBox Evaluate("=SUM(IF(A3:A650<>"""",1/COUNTIF(A3:A650,A3:A650)))")
End Sub

Diese Methode kann in bestimmten Situationen schneller sein.

Praktische Beispiele

Angenommen, Du hast in der Spalte A Werte, die Du zählen möchtest. Hier sind einige Beispiele:

  • Zählen von Duplikaten: Verwende den oben beschriebenen VBA-Code, um die Anzahl der einzigartigen Werte zu zählen.
  • Einzelner Bereich: Wenn Du nur einen bestimmten Bereich zählen möchtest, ändere den Code in der For Each Schleife, um nur diesen Bereich zu durchsuchen, z.B. wks.Range("A1:A100").

Tipps für Profis

  • Optimierung der Performance: Wenn Du große Datenmengen hast, solltest Du den Bildschirmaktualisierungsmodus deaktivieren, um die Performance zu verbessern:

    Application.ScreenUpdating = False
' Führe Deinen Code aus
Application.ScreenUpdating = True

  • Verwendung von Dictionaries: Wenn Du die Anzahl der eindeutigen Werte zählen möchtest, ist die Verwendung eines Dictionaries wie im Beispiel sehr effektiv und spart Zeit.

FAQ: Häufige Fragen

1. Wie kann ich die Funktion auf ein bestimmtes Tabellenblatt anwenden? Du kannst den Bereich anpassen, indem Du z.B. Rot!A3:A650 in den Code einfügst.

2. Gibt es eine Formel in Excel, die ich verwenden kann? Ja, Du kannst die Formel =SUMME(WENN(A3:A650<>"";1/ZÄHLENWENN(A3:A650;A3:A650))) direkt in eine Zelle eingeben, um die Anzahl der eindeutigen Werte zu zählen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige