Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Gleiche Werte zusammenzählen....

Forumthread: 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!
Anzeige

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
Anzeige
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 ?
;

Beliebteste Forumthreads (12 Monate)

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