Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Gleiche Werte zusammenzählen....

Gleiche Werte zusammenzählen....
18.01.2005 16:20:08
Stefan
Hallo,
hab da ein Problem und bin zu doof dafür. Hab auch schon mehrere Stunden damit verbracht auf google oder in diversen Foren was zu finden. Aber leider hab ich nichts gefunden.
Also ich habe in einer Liste eine Spalte in der öfter einmal der gleiche Wert auftauchen kann, z.B.
B00000003981453
B00000003955953
B00000003969092
B00000003990178
B00000003998984
B00000003998984
Nun würde ich gerne ein Makro darüber laufen lassen welches folgendes macht:
Werte die nur 1x da sind, löschen. Werte die mehrfach da sind dann folgendermaßen darstellen (Wert + Anzahl dahinter):
B00000003981453 2
B00000003998984 2
Ich wäre euch so dankbar, wenn da jemand was wissen würde.
Viele Grüße
Stefan Petershofer
PS: Klasse Forum!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gleiche Werte zusammenzählen....
Xeraan
Hallo Stefan
Vorausgesetzt, die Werte stehen in Spalte A
sub Zählen()
lz=cells(rows.count,1).end(xlup).row
for a=2 to lz
for b=1 to a-1
if cells(a,1)=cells(b,1) then
cells(b,2)=cells(b,2)+1
cells(a,1)=""
endif
next b
next a
for a=lz to 1 step -1
if cells(a,2)="" then cells(a,1)=""
if cells(a,1)="" then rows(a).delete
next a
AW: Gleiche Werte zusammenzählen....
18.01.2005 17:27:32
Stefan
Vielen Dank, das ist es schon fast. Wie stell ich jetzt noch ein, daß er die Werte die nur 1x auftauchen gelöscht werden ?
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige