Office: Mehrfach vorkommende Werte einzeln zählen

Hallo Excel freunde!
Leider habe ich zum Tema nichts gefunden, darum fange ich ein Neues an.
Habe folgendes Problem: ich habe aus einer Spalte der Excel Tabelle per Makro einen Datenfeld erzeugt, das mehrere mehrfachvorkommende Werte enthält, alles was ich brauche ist, vorkommende Werte jeweils einmal aufzählen. Klingt einfach, aber leider reichen meine Programierkenntnisse nicht aus um das zu realisieren.
Währe für jede Hilfe dankbar.

:)

 

Hi

versuche mal

Code:

ist für das erste Tabellenblatt und Spalte A

 

Hallo n.,

wenn der Bereich bekannt ist, dann kannst Du das z.B. so lösen (hier: Bereich B2:B20) :

Code:

Wenn nur die erste Zelle bekannt ist und die letzte Zeile variabel, dann z.B. so (hier : für Spalte B, ab B2) :
Code:

 

hi

^^
ok, wenn es nur Zahlen sind die verglichen werden müssen, geht es auch so *wink.gif*

MsgBox Evaluate("=SUM((FREQUENCY(A:A,A:A)>0)*1)")

 

Hey Chris,

wenn es nur Zahlen (oder Leerzellen) sind, ist Deine Lösung absolut TOP *Smilie - Falls aber doch Texte enthalten sein können, funktioniert meine besser *tongue.gif*
Im Fall, dass auch #FEHLERWERTE enthalten sein können, scheitern beide Varianten *upps

Salut und schönes WE...

PS: Danke für die positive Bewertung *Smilie - Das Video enthält übrigens eine Tonspur (man hört z.B. die Tastatureingaben), nur habe ich das Video nicht sprachlich hinterlegt, so bleibt es INTERNATIONAL *grins

 

Hallo Antworter,
was (Email-Bestätigung fehlt!) zu bedeuten hat, weiß ich nicht. Vielleicht antwortet ihr ja auf einen Geist? Auf jeden Fall beißt sich beim Fragesteller die Überschrift mit der Frage, in der er die "Werte jeweils einmal aufzählen" haben möchte.

Leider reichen meine Programmierkenntnisse (in Memory) nicht aus, um den Fragesteller zu befriedigen. Deshalb mache ich nur darauf aufmerksam.

Ich hätte auch gern ein Video angeschaut, hab' aber keines gefunden.

 

Hallo Leute,

Danke für ihre Antworten, alle Ihre Lösungen bezihen sich auf die Spalten in der Tabelle, was ich habe ist ein Aray.
Ich habe bereits folgende Lösung versucht komme aber nicht weiter:
Sub GleicheEntfernen(arr As Variant)
Dim i As Long
Dim j As Long
Dim k As Long

i = LBound(arr)
Do While i

 

Hallo Rudi4,

ich verstehe dein Sarkasmus nicht, ich dachte eben solche Foren sind dazu das um sich ein Rat bei den erfahrenen hilfsbereiten Menschen zu holen, und evt. selbst helfen wenn mann kann, worauf du hinaus willst ist mir leider nicht klar.

Mfg
nitnelav

 

Hallo nitnelav

was willst du als Ergebnis haben?
zuerst stand da was von zählen und jetzt entfernen ^^

warum zurerst alles einlesen und dann wieder nachbearbeiten?
lese doch gleich nur alle (einfachen) Werte in dein Array.

Code:

 

Hi Chris,

wenn ich das richtig gelesen habe, hat er die Daten (mit Duplikaten) bereits in einem Datenfeld vorliegen.

Code:

Grüße
EarlFred

 

Hallo Earlfred

ich weiß *wink.gif* er schreibt ja

darum meine Nachfrage

warum zurerst alles einlesen und dann wieder nachbearbeiten?
lese doch gleich nur alle (einfachen) Werte in dein Array.
*grins

 

Hi Leute,

also wie ich schon geschrieben habe, das Aray mit den Werten ist bereits vorhanden, es muss nur noch ein zäler eingebaut werden das die Werte ohne Dublikate zählt.
PS: Sorry wenn ich mit meinem letzten Eintrag Verwierung gestiftet habe.

MfG
nitnelav

 

Hallo nitnelav,

jetzt versteh ich auch nix mehr. ZÄHLEN oder AUFZÄHLEN?

Magst Du das mal bitte klar sagen, was Dein Wunsch ist?

Ansonsten: objDic.Count sollte das Zählen erledigen, das AUFZÄHLEN steht bereits in mehreren Codes hier *wink.gif*

Oder gib mal ein Beispiel der Daten im Feld und des gewünschten Ergebnisses.... Zahlen sagen mehr als Worte *wink.gif*

@chris
Ich trau's mich kaum zu sagen: Weils bei großen Datenmengen viel schneller ist *wink.gif*

Grüße
EarlFred

 

Hallo nitnelav

könntest du bitte kurz beschreiben was du willst. *rolleyes.gif*
(was als Ergebnis vorliegen sollte, wofür)

Zählen?

Sub GleicheEntfernen( ?

irgendwie verwirrend ^^
wenn du gleiche entfernst hast du ja automatisch die Anzahl, oder willst du gar keine GleicheEntfernen *wink.gif*

[edit]
ups, zu langsam

und stimmt bei großen Datenmengen würde es viel schneller gehen, ich habe das mal spaßhalber mit >1 Mill. gemacht bei meinem Code auf diesem Rechner über 15 Sek. und bei deinem knapp. 1,5 sek
10 mal schneller und je Recher wahrscheinlich bis zum hundertfachen schneller.

 

Hallo nitnelav,

ja, bitte streng Dich jetzt mal bei der Problembeschreibung an. Ist doch jammerschade, wieviel Zeit schon verschwendet wurde, weil die Aufgabe nicht klar ist!

Grüße
EarlFred