Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1424to1428
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
1424to1428
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzahl gleicher Werte in sehr großer Tabelle

Anzahl gleicher Werte in sehr großer Tabelle
08.05.2015 10:19:30
V
Hallo,
ich habe eine Frage und hoffe auf eure bewährte Hilfe. Vorab vielen dank an alle, die versuchen mich zu unterstützen!
Ich haben eine Tabelle mit 20 Spalten und 500000 Zeile. In der ersten Spalte (A) steht eine Kennnummer. Ich möchte nun eine Spalte hinzufügen, in der steht wie oft die Kennnummer aus Spalte A in allen Kennnummern der Spalte A vorkommt.
Im Normalfall mache ich das mit einer Formel =zählenwenn(A:A;A2)und ziehe die einfach nach unten. Funktioniert prima! :-)
Beispiel:
Spalte A - neue Spalte mit Formel
23 3
34 2
56 1
34 2
78 1
23 3
23 3
Aber...das Problem sind nun die 500000 Zeilen (ja, ich weiß da gibt's andere Programme, aber ich kenn mich halt mal nur mit Excel einigermaßen aus). Wenn ich die Formel bis zur letzten Zeile runterkopiere, dann rechnet mein Rechner 10 Stunden.
Gibt es irgendeinen Weg das schneller hin zu bekommen?
Grüße und nochmals Danke!
V A T

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl gleicher Werte in sehr großer Tabelle
08.05.2015 10:31:41
Daniel
Hi
1. sortiere nach der Spalte A
2. erste Hilfsspalte (X) diese Formel, Formel für X2, bis ans Datenende runterziehen
=Summe(1;Wenn(A1=A2;X1;0))
3. Ergebnisspalte (y) diese Formel, wieder für Y2 und bis zum Datenende
=Wenn(A2=A3;Y3;X2)
4. Spalte Y kopieren und an gleicher Stelle als Wert einfügen
5. Spalte X löschen
6. falls erforderlich Tabelle in die Ausgangsreihenfolge zurücksortieren
ist zwar Statisch und muss wiederholt werden, wenn sich die Tabelle ändert, hat aber bei der Datenmenge die beste Peformance
Gruß Daniel

AW: Anzahl gleicher Werte in sehr großer Tabelle
08.05.2015 10:36:41
Rudi
Hallo,
ca.2,5 Sek.
Function ZaehlMich(arr)
Dim i As Long, oDic As Object
Set oDic = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
oDic(arr(i, 1)) = oDic(arr(i, 1)) + 1
Next
For i = 1 To UBound(arr)
arr(i, 1) = oDic(arr(i, 1))
Next
ZaehlMich = arr
End Function


Sub test()
Dim arr
With Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
arr = .Value
.Offset(, 20) = ZaehlMich(arr)
End With
End Sub
Gruß
Rudi

Anzeige
AW: Anzahl gleicher Werte in sehr großer Tabelle
08.05.2015 11:06:08
V
Hallo Rudi,
danke für Deine Antwort, die ja auch höchstens 2,5 Sekunden gebraucht hat... ;-)
Könntest Du deine Lösung etwas erläutern/kommentieren, mir fehlt ein wenig das VBA-Knowhow, um sie sofort zu verstehen und somit auch zu wissen, wie ich sie praktisch einsetze.
Gruß
V A T

AW: Anzahl gleicher Werte in sehr großer Tabelle
08.05.2015 11:21:43
V
Hi,
ok, Entwarnung bzgl. der erbetenen Zusatzunterstützung! :-)
Ich hab es hinbekommen, ich kann es anwenden, es funktioniert (bei mir sind es zwar 2,5 Minuten, aber das liegt bestimmt an meinem saulangsamen System und ist immer noch 1.000.000 mal schneller als die Methode zuvor).
Inhaltlich verstehe ich es zwar nur teilweise (bin in VBA nicht fit genug), aber es reicht, um es auf meine Bedürfnisse anzupassen und weiter damit zu arbeiten.
Vielen, vielen Dank für Deine schnelle und super funktionierende Lösung!!!
Immer wieder ein geiles Forum!!!
Gruß
V A T

Anzeige
AW: Anzahl gleicher Werte in sehr großer Tabelle
08.05.2015 12:03:47
Daniel
Hi
du hast ja noch eine manuelle Lösung bekommen, mit der du die Aufgabe auch ohne Makros in 2 Minuten erledigen kannst!
Gruß Daniel

Interessehalber nachgefragt ...
08.05.2015 16:56:13
der
Hallo V A T,
... dank Rudis Makro hast Du exakt das von Dir gewünschte Ergebnis.
Mich interessiert nun, wie lange für Deine Datenmenge eine PIVOTauswertung dauern würde.
Dieselbe wäre mit ca. Mausklicks in wenigen Sekunden erstellt (notfalls einfach nachfragen) Sie ergibt zwar nicht die von Dir gewünschte Zuordnung des Ergebnisses in jeder Zeile, dafür aber eine schnelle komprimierte Ergebnisauswertung (die Du zusätzlich nach beliebigen Gesichtspunkten sortieren filtern etc. kannst).
Wie lange dauert die PIVOT-Auswertung und eine Aktualisierung bei zwei Datenänderungen in Deiner Datei mit Deinem PC?
Würde mich über Deine Antwort freuen.
Gruß Werner
.. , - ...
Anzeige

313 Forumthreads zu ähnlichen Themen

Anzahl Zellen - zwischen 80 und 200 - Filter
dwettig

Hallo,
ich möchte die Anzahl von Zellen zählen deren INhalt zwischen a und b liegt. Erschwerend kommt hinzu, das es nur für gefilterte Zeilen gelten soll.
Ich habe es bisher versucht mit:
=ZÄHLENWENN(AD12:AD1500;">80")-ZÄHLENWENN(AD12:AD1500;">200")
Da werden aber auch d...
13.08.2008 09:27:02
Thread-ID: 1001391
8 Beiträge
Anzeige
Anzahl nur zählen wenn >0
sanktflorian

Hallo,
wie ich einen Wert durch Anzahl teile ist mir bekannt.
Nun steht in jeder Zelle aber ein Wert ab 0 , ich möchte die Zelle wo eine 0 steht nicht mit zählen bei der Anzahl.
Wie stelle ich das am besten an.
Mit freundlichem Gruß
Sankt
20.08.2009 10:06:57
Thread-ID: 1097291
10 Beiträge
Wenn Wert Größer als...
werner

Hallo Forum,
ich habe mal wieder eine Bitte.
In den Feldern 2 bis 156 einer Spalte habe ich diverse Werte. Nun möchte ich, dass der Wert welcher in Feld 1 der selben Spalte blinkt sobald er größer ist als der/die Werte in den Feldern 2 bis 156-
Wie macht man das?
Danke für Eure...
30.11.2010 09:13:14
Thread-ID: 1189332
3 Beiträge
Anzeige
Zahlenformat: Datum und wenn Null, dann anders
Peter

Guten Tag
Eine Formel gibt mir als Wert i.d.R. eine Serielle Zahl zurück, die ich dann mittels Formateinstellungen als Zahl darstelle. Nun ist das Ergebnis bisweilen NULL, das möchte ich dann nicht als Datum dargestellt haben, da dies kein Sinn macht. Kann ich für diesen Fall das Format so...
02.05.2011 10:43:05
Thread-ID: 1212603
3 Beiträge
Zählenwenn mit Bereich als Suchkriterium
Werner

Hallo,
wie muß die Funktion Zählenwenn aussehen, wenn als Suchkriterium
ein Bereich (also z.B.: >50 und stehen soll.
Gruß Werner.
04.05.2011 11:49:11
Thread-ID: 1213029
3 Beiträge
ZÄHLENWENN zeigt fälschlicherweise Duplikate
Wolfango

Hallo zusammen,
mit der Funktion ZÄHLENWENN suche ich nach Duplikaten.
Im unten verlinkten Beispiel werden mir zwei unterschiedliche Werte trotzdem als Duplikate angezeigt.
Ich komme nicht dahinter wieso?
(Anm: die Zahlenwerte sind als Text formatiert, das hat aber keinen Ei...
15.05.2012 10:44:19
Thread-ID: 1263545
7 Beiträge
Wenn kleiner als... dann Text + bedingte Format.
sjdelphin

- Wenn kleiner als, dann...Text und bedingte Formatierung Nach oben
Version: Office 2010
--------------------------------------------------------------------------------
Guten Abend,
da ich mich bisher immer über sehr gute Lösungen hier freuen durfte, habe ich mal wieder ein...
10.07.2012 20:07:14
Thread-ID: 1270510
6 Beiträge
Texteingabe größer als 30 Zeichen teilen
Florian

Hallo zusammen,
ich habe mal wieder ein Problem, ich habe ein Makro geschrieben welches die Eingabe in Excel überwacht.
Wenn die Stringlänge größer 30 Zeichen ist soll der Inhalt in die zelle darunter geschrieben werden.
Funktioniert soweit super, es werden sogar Stringlängen von z....
09.08.2012 00:38:27
Thread-ID: 1274315
3 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
7
5
9
2
5
2
2
6
5
2
5
2
4
16
11
8
12
3
2
2
1
4
3
2
8