Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Doppelte zählen per VBA

Doppelte zählen per VBA
17.02.2007 01:12:55
Ronaldo
Hallo,
in meiner Spalte A befinden sich über 500 Einträge. Z.B.
10999
23000
23000
34544
25500
24000
24000
24000
Hinter jede Zahl soll jetzt in Spalte B stehen, wie oft diese Zahl vorkommt. Im Beispiele wäre das Ergebnis:
10999 1
23000 2
23000
34544 1
25500 1
24000 3
24000
24000
Ich kann das nicht per Formel lösen, da das ein Teil einer Prozedur sein soll und die Anzahl der Spalten in A sich immer wieder verändern können.
Hat jemand eine Lösung hierfür ?
Gruss
Ronaldo

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

Betreff
Datum
Anwender
Anzeige
AW: Doppelte zählen per VBA
17.02.2007 02:15:23
ChrisL
Hallo Ronaldo

Sub t()
Dim iZeile As Long, LetzteZeile As Long
LetzteZeile = Range("A65536").End(xlUp).Row
For iZeile = 1 To LetzteZeile
If WorksheetFunction.CountIf(Range("A1:A" & iZeile), Cells(iZeile, 1)) = 1 Then _
Cells(iZeile, 2) = WorksheetFunction.CountIf(Columns(1), Cells(iZeile, 1))
Next iZeile
End Sub

Gruss
Chris
AW: Doppelte zählen per VBA
17.02.2007 10:42:00
Ronaldo
Hallo Chris,
es funktioniert einwandfrei ! Super !
Vielen Dank für Deine Hilfe !
Gruss
Ronaldo
Anzeige

10 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige