Private Sub ZaehleAlleIdenteZahlen()
Dim Anz(1200) As Integer, i As Integer, lMaxCount As Integer
Dim Wert As String
''...
List1.Clear
''...Recordset erstellen
Set meRs = goDb.OpenRecordset("SELECT [Ident] FROM [Irgendwas]", _
  dbOpenSnapshot, dbSeeChanges)
PicProgress1.Visible = True
 
With meRs
  .MoveFirst
  lMaxCount = .RecordCount
    For i = 0 To lMaxCount
      Call ShowProgressBar(PicProgress1, i, 1, lMaxCount)
      Wert = Val(.Fields("Ident").Value)
      Anz(Wert) = Anz(Wert) + 1
    Next i
End With
 
With List1
  .Visible = False
  .Clear
    For i = 1 To UBound(Anz)
      .AddItem Anz(i) & " * " & i
    Next i
  .Visible = True
End With
 
meRs.Close
Set meRs = Nothing
'PicProgress1.Visible = False
 
'... horiz.ScrollBar
Call CreateListHBar(Me, List1)
End Sub