Gleiche Werte in Spalte zählen

Juergen · 2016-08-11T08:37:26+00:00

Hallo zusammen, vielleicht kann mir jemand auf die Sprünge helfen: Ich habe ein Excel-Sheet mit Daten (Adressdaten). Darin befindet sich u.a. eine Spalte [J], welche Strassennamen listet. Diese sind jedoch mehrmals genannt, da jede Wohnung im Anwesen aufgeführt ist [I]. Nun möchte ich auslesen, wie viele Wohnungen sich jeweils in einem Anwesen/Gebäudeaufgang befinden. Über die Formel "Zählenwenn" komme ich nicht weiter. Benötigt man dazu ein Script oder könnte einen andere Formelanweisung mir weiterhelfen? Hier ein Screenshot zum besseren Verständnis: [Bild: Userbild] Vielen Dank im Voraus! Gruss, Jürgen

Mit einem Makro könntest du das so machen ist zwar nicht schön aber geht =D
Gruß BAsti
Einfach in VBA in das Gewünschte TabellenBlatt kopieren

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

Forumthread: Gleiche Werte in Spalte zählen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial