Gleiche Werte in Spalte zählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo WF,
vielen Dank für die Antwort. Ich muss jetzt ganz doof fragen:
a) meine erste freie Spalte wäre [N], muss die Formel dann so lauten:
{=WENNFEHLER(INDEX(J:J;VERGLEICH(1;(ZÄHLENWENN(N$1:N1;J$1:J$99)=0)*(J$1:J$99"");0));"")}
b)
und die nächste Spalte wäre dann [O]; muss die 2. Formel dann so lauten:
=WENN(J2="";"";ZÄHLENWENN(J:J;N2))
Userbild

c) ich habe beide mal so einkopiert. Allerdings ausser, dass in Spalte [O] eine 0 erscheint tut sich nichts. Ich weiss aber auch nicht genau, was eine "Array" Formel ist? Muss die anders einkopiert werden mit den geschweiften Klammern als die normale Schreibweise bei Formeln?
Userbild

Sorry wenn' zu doof ist, bin aber blutiger Anfänger. Danke nochmals.
Gruss, Jürgen

Sub Finden() Set dict = CreateObject("Scripting.Dictionary") last = ActiveSheet.Cells(1048576, "J").End(xlUp).Row Range(Range("J2"), Range("J2").End(xlDown)).Interior.ThemeColor = xlThemeColorDark1 With dict For x = 2 To last If Not dict.exists(Cells(x, "J").Value) Then .Add Cells(x, "J").Value, 1 Next End With h = 3 '- Farbe gleich bei gleichen Zellen Namen For Each key In dict.keys Debug.Print key, dict(key) For x = 2 To last If key = Cells(x, "J").Value Then zähler = zähler + 1: Range(Cells(x, "J"), Cells(x, "J")). _ Interior.ColorIndex = h: Z = key Next Range("L" & h - 1) = Z & "=" & zähler zähler = 0 h = h + 1 Next key End Sub

Ohh Sorry Juergen mein Fehler hab nicht dran gedacht der Der colorindex nur bis 56 geht ;)
So sollte es gehen
Gruß Basti

Sub Finden()
Set dict = CreateObject("Scripting.Dictionary")
last = ActiveSheet.Cells(1048576, "J").End(xlUp).Row
Range(Range("J2"), Range("J2").End(xlDown)).Interior.ThemeColor = xlThemeColorDark1
With dict
For x = 2 To last
If Not dict.exists(Cells(x, "J").Value) Then .Add Cells(x, "J").Value, 1
Next
End With
h = 3 '- Farbe gleich bei gleichen Zellen Namen
i = 2
For Each Key In dict.keys
Debug.Print Key, dict(Key)
For x = 2 To last
If h > 56 Then h = 3
If Key = Cells(x, "J").Value Then zähler = zähler + 1: Range(Cells(x, "J"), Cells(x, "J")). _
Interior.ColorIndex = h: Z = Key
Next
Range("L" & i) = Z & "=" & zähler '----"hier Spalte anpassen "L" wo die auflistung hin soll
zähler = 0
i = i + 1
h = h + 1
Next Key
End Sub

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

179 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Gleiche Werte in Spalte zählen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

179 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread