zu folgendem Problem fällt mir keine Lösung ein:
Ich habe in Spalte A verschiedene Namen z.B. Maier, Mueller, Schaefer. Diese Namen kommen untereinander z.t. gehäuft auf.
Spalte A Spalte B
Maier 3
Maier
Maier
Mueller 1
Schaefer 2
Schaefer
Baur 2
Baur
Wie oben soll nun die Gesamtanzahl der Namen in der jeweiligen Spalte B in der er als erstes auftritt, reingeschrieben werden.
Problem: Wie definiere ich nun die Zeile in Spalte B in der der NAme das erste mal auftritt.
Bis jetzt funktioniert meine Zählweise & der Rest, nur das "Finden" der Zeile in Spalte B bekomme ich nicht hin...
Freue mich über Hilfe!
Sub NamenZaehlen
Dim objDict, f
Dim myValues, myKeys
Dim lngI As Long
Dim Bereich As Range
Set Bereich = Range("A2:A" & letzteZeile)
Set objDict = CreateObject("Scripting.Dictionary")
For Each f In Bereich
If Not objDict.Exists(f.Value) Then
Call objDict.Add(f.Value, Application.CountIf(Bereich, f))
End If
Next
myKeys = objDict.keys 'Wort
myValues = objDict.Items 'Häufigkeit die das Wort auftritt
For lngI = 0 To objDict.Count - 1
Range("B2").Value = myValues(lngI) ' hier Problem: nur manuelle Eingabe gelingt mir
Next lngI
Set objDict = Nothing
Set Bereich = Nothing
End Sub