Private Bestlcol As New Collection
 
Private mGesamtHS As Integer
 
Public Property Get GesamtHS() As Integer
   GesamtHS = mGesamtHS
End Property
 
 
Public Property Get item(ByVal Index As Long) As clsBestLeistungen
   Set item = Bestlcol(Index)  
End Property
 
 
Public Property Get count() As Long
   count = Bestlcol.count
End Property
 
 
Public Sub remove(ByVal Index As Integer)
   Bestlcol.remove Index
 
   Ermittle_GesamtHS
End Sub
 
 
Private Sub Class_Initialize()
  Set Bestlcol = New Collection
End Sub
 
 
Private Sub Class_Terminate()
  Set Bestlcol = Nothing
End Sub
 
 
Public Function Add(Datum As Date, Name As String, _
                    hs As String, SG As String, _
                    HF As String) As clsBestLeistungen
 
   Dim DSnew As New clsBestLeistungen
 
   With DSnew
     .Datum = Datum
     .Name = Name
     .hs = hs
     .SG = SG
     .HF = HF
  End With
 
  Bestlcol.Add DSnew
 
  Ermittle_GesamtHS
 
End Function
 
 
Private Function Ermittle_GesamtHS()
 
   Dim it As clsBestLeistungen
 
   Dim c As Integer: c = 0
   Dim i As Integer
 
   For i = 1 To Bestlcol.count
     Set it = Bestlcol(i)
     If Not it.hs = "" Then c = c + 1
   Next i
 
   mGesamtHS = c
End Function