Werte in einer Tabelle zählen mit Excel

Public Function AnzahlPerNummer(Bereich As Range) As String
  Dim Values As Object: Set Values = CreateObject("Scripting.Dictionary")  
  For R = 1 To Bereich.Rows.Count
    Nr = Bereich.Cells(R, 1).Value
    If Values.Exists(Nr) Then
      V = Values.Item(Nr)
      Values.Item(Nr) = Values.Item(Nr) + 1
    Else
      Values.Add Nr, 1
    End If
  Next
  Dim ReturnValue As String: ReturnValue = ""  
  For Each Key In Values.Keys
    If ReturnValue = "" Then  
      ReturnValue = Key & " " & Values.Item(Key) & "x"  
    Else
      ReturnValue = ReturnValue & Chr(10) & Key & " " & Values.Item(Key) & "x"  
    End If
  Next
  AnzahlPerNummer = ReturnValue
End Function