Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
16.04.2024 12:01:17
Dynamische Liste generiert aus mehreren Vorgagen
16.04.2024 11:48:22
Blatt in HTML exportieren wenn Checkbox aktiv ist
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1464to1468
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
1464to1468
1464to1468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba doppelte werte nur einmal zählen

vba doppelte werte nur einmal zählen
07.01.2016 11:38:42
Gregor
Hallo
In einer Schlaufe definiere ich die erste und letzte Zeile des in einer Spalte zu zählenden Bereichs. In diesem Bereich möchte ich nun alle Werte zählen, aber doppelte nur einmal. Wie lautet dieser Code.
Im Forum fand ich diesbezüglich nur Vorschläge mit Formeln.
Danke und Gruss
Gregor

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

Betreff
Datum
Anwender
Anzeige
AW: vba doppelte werte nur einmal zählen
07.01.2016 11:48:57
Rudi
Hallo, 
Sub aaaa()
Dim i As Long, iErste As Long, iLetzte As Long
Dim objCount As Object
Set objCount = CreateObject("scripting.dictionary")
iErste = 10
iLetzte = 100
For i = iErste To iLetzte
objCount(Cells(i, 1).Value) = 0
Next i
MsgBox objCount.Count
End Sub

Gruß
Rudi

AW: vba doppelte werte nur einmal zählen
07.01.2016 11:55:10
ransi
Hallo Gregor,
Willst du nur doppelte zählen oder auch 3-fache und 4-fache ?
Option Explicit

Sub machs()
    Dim myDic As Object
    Dim arr As Variant, out As Variant
    Dim erste As Long, letzte As Long
    Dim L As Long
    erste = 1
    letzte = 10000
    Set myDic = CreateObject("scripting.Dictionary")
    arr = Range("A" & erste & ":A" & letzte)
    For L = LBound(arr) To UBound(arr)
        If myDic.exists(arr(L, 1)) Then
            myDic(arr(L, 1)) = arr(L, 1) & " Mehrfach"
            Else:
            myDic(arr(L, 1)) = "irgendwas"
        End If
    Next
    out = Filter(myDic.items, " Mehrfach")
    MsgBox UBound(out) + 1 & " Mehrfache"
End Sub


ransi

Anzeige
AW: vba doppelte werte nur einmal zählen
07.01.2016 12:18:07
Gregor
Hallo zusammen
Vielen Dank für die Unterstützung. Ich will alle Werte nur einmal zählen, also einfache, doppelte, dreifache, usw.
Der Code von Rudi habe ich eingesetzt und ist perfekt.
Gruss Gregor

344 Forumthreads zu ähnlichen 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
Anzeige
Zahlen ohne doppelte Ziffern
oliver

ich brauche 25'000 fünfstellige zahlen. in keiner zahl darf die selbe ziffer mehr als einmal vorkommen. wie kann ich dies im excel bewerkstelligen?
ein beispiel falls das unlogisch klingt;
richtige zahlen; 012324, 12345, 23456, 34567, 45678, 56789, 67890 usw...
falsche zahlen; 01223...
01.01.1970 00:00:00
Thread-ID: 1067973
46 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
Anzeige
Krieg Zählenwenn mit 2 Bedingugnen geht nicht
Julia

Hallo,
ich bekomme es einfach nicht hin :(
Ich bin in Mappe1, dort in Zelle A1 will ich folgendes:
Zählenwenn negativer Wert in Spalte P und Spalte Spalte J ist ungleich GESCHLOSSEN (STEHT ALLES IN MAPPE2)
Jemand einen Tipp?
Gruß
Julia
02.10.2009 15:39:41
Thread-ID: 1106874
7 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
zählenwenn geht nicht
ray

Hallo,
ich möchte zählen, wieviel zellen leer sind:
So geht es nicht:
=ZÄHLENWENN(Q3:Q1295;"=""")
ergebnis ist "0". Es gibt aber in dem Bereich Zellen, wo nix drin steht.
Was mach ich falsch?
Viele Grüße aus dem sonnigen Hamburg bei 17,5 Grad
Ray
01.06.2010 14:56:55
Thread-ID: 1159844
6 Beiträge
Zählenwenn (aus nicht miteinan. verb. Zellen)
Joerschi

Hallo liebe Community,
wahrscheinlich habe ich grad einen kleinen Blackout :-(
Ich möchte aus mehreren Zellen (die nicht direkt miteinander verbunden sind/nebeneinander liegen) mit der Zählenwenn-Formel einen Wert zählen lassen. Irgendwie bekomme ich aber die Formel nicht hin...
Bsp...
07.08.2010 10:18:20
Thread-ID: 1171013
7 Beiträge
Nur eindeutige Werte in Matrix zulassen?
Frank

Hallo,wie kann ich in einer Matrix A1:C10 überprüfen ob jeder dort eingetragene Wert auch wirklich nur einmal vorkommt?
Falls ein Wert zweimal eingetragen wird bzw. vorkommt sollte evtl. eine Meldung erscheinen wie z. B. "wert bereits vorhanden".GrußFrank
08.05.2002 13:35:54
Thread-ID: 119550
5 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
4
1
45
16
1
6
5
5
6
4
3
2
1
3
2
4
6
2
4
3
6
2
1
4
6