ich habe eine Spalte mit Namen in der es auch Dubletten gibt. Die Namen und die Anzahl der Häufigkeit sollen in einer Listbox ausgeben werden.
Das kann eigentlich nicht schwer sein, aber ich bekomme es nicht hin.
Ich Danke im Voraus für die Hilfe
Sub ListFuellen()
Dim hsh As Object, i As Long
Dim inhalt As Long
Set hsh = CreateObject("Scripting.Dictionary")
With Sheets("Tabelle1")
For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
hsh(.Cells(i, 1).Text & " (" & Application.CountIf(.Columns(1), .Cells(i, 1).Text) _
& ")") = 0
Next
.ListBox1.List = Application.Transpose(hsh.Keys)
End With
Set hsh = Nothing
End Sub
Sub ListFuellen()
Dim hsh As Object
Dim i As Long
Dim letzte As Long
Dim zaehlen As Long
Set hsh = CreateObject("Scripting.Dictionary")
With Sheets("Tabelle1")
letzte = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 1 To letzte
zaehlen = Evaluate("SumProduct((a1:a" & letzte & ">= d1)*(a1:a" & letzte & "
With Tabelle2
ZeileMax = .Cells(.Rows.Count, iBemerkung).End(xlUp).Row
For Zeile = 2 To ZeileMax
If (CDate(.Cells(Zeile, iDatum).Value) >= CDate(cmb_DateStart.Value)) And (CDate(. _
Cells(Zeile, iDatum).Value) = d1)*(a1:a" & "
With Tabelle2
ZeileMax = .Cells(.Rows.Count, iBemerkung).End(xlUp).Row
For Zeile = 2 To ZeileMax
If (CDate(.Cells(Zeile, iDatum).Value) >= CDate(cmb_DateStart.Value)) And (CDate(. _
Cells(Zeile, iDatum).Value) = d1)*(a1:a" & "
Sub ListFuellen()
Dim hsh As Object
Dim i As Long
Dim letzte As Long
Dim zaehlen As Long
Set hsh = CreateObject("Scripting.Dictionary")
With Sheets("Tabelle1")
.ListBox1.Clear
letzte = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 1 To letzte
If .Cells(i, 1) >= Cells(1, 4) And .Cells(i, 1) = d1)*(a1:a" & letzte & "