Public Function maxanz(listbx As Listbox)
     Dim grössteanzahl As Long
     Dim I As Long, J As Long
     Dim Zähler As Long
     Dim merke As String
     Dim Ausgabe As String
 
     grössteanzahl = 0
     For I = 0 To listbx.ListCount - 1
          Zähler = 0
          If merke <> listbx.List(I) Then
            merke = listbx.List(I)
            For J = 0 To listbx.ListCount - 1
                 If listbx.List(J) = merke Then Zähler = Zähler + 1
            Next
            Listbox2.AddItem merke & Chr$(9) & "=" & Chr$(9) & Zähler
            If Zähler > grössteanzahl Then
              grössteanzahl = Zähler
              Ausgabe = merke
            End If
          End If
     Next
     maxanz = Ausgabe & Chr$(9) & "=" & Chr$(9) & grössteanzahl
End Function