Public Eintrag As New clsWinGDV
Public colEintrag As New Collection
Public colEinheiten As New Collection
 
Sub test()
 
For i = 1 To 10
    Eintrag.Absender = "xxx" & i
    Eintrag.MailAdresse = "yyy" & i
    '-------------------------
 
    For X = 1 To 5
            Eintrag.GespDatum = Date
            Eintrag.GespNummer = "123456" & Y
            colEinheiten.Add Eintrag
     Next X
 
   ' Eintrag.Tabelle = colEinheiten(X)
    '------------------------
    colEintrag.Add Eintrag
Next i
 
For X = 1 To colEintrag.Count
    Debug.Print Eintrag.Absender
    Debug.Print Eintrag.MailAdresse
    Debug.Print "---------------------"
    For Y = 1 To colEinheiten.Count
        Set Eintrag = colEinheiten(Y)
        Debug.Print Y & " " & Eintrag.GespNummer & " " &
Eintrag.GespDatum
        'Stop
    Next Y
Next X
 
End Sub