Private Sub zählen()
Dim i As Long
Dim a As Long
 
i = 0
a = 0
 
For i = 0 To List1.ListCount - 1
  If List1.List(i) = List1.List(i + 1) Then
    a = a + 1
  Else
     MsgBox List1.List(i) + " ist " + Str(a + 1) + " mal vorhanden.", _
       vbInformation
     a = 0
  End If
Next i
End Sub

Sorry das ich?s nicht verlinken oder hervorheben kann, aber ich benutz Opera und da funktionieren diese Funktionen anscheinend nicht.
--------------------------------------------------------
Ich hoffe, ich konnte helfen/ihr k?nnt mir helfen.
Simon