VBA - Collection in Collection

Hallo @ all,

ich habe in VBA eine Klasse erstellt, mit ein paar Variablen.
Die Werte fasse ich in einer Collection zusammen.

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

    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
 

Mein Problem:
Ich habe eine x Anzahl von Werten in der colEintrag zusammengefasst.
Zu jedem Eintrag habe ich eine y Anzahl von Werten.
Jetzt wollte ich die colEinheiten einem Wert der colEintrag zuweisen - also Collection in der Collection.

Das funktioniert aber nicht.....
Könnt Ihr mir helfen?

Vielen Dank

Gruß
Werner

Ziel ist:
Absender1, MailAdresse1, .....
hat:
Gespräch1, GespNummer1
Gespräch2, GespNummer2
Gespräch_x, GespNummer_x

Absender2, MailAdresse2, .....
hat:
Gespräch1, GespNummer1
Gespräch2, GespNummer2
Gespräch_x, GespNummer_x

usw...

Aufbau der Klasse

    'collection 1  
    Private m_MailAdresse As String               ' Empfängeremailadresse  
    Private m_EmpfängerName As String
    Private m_KostenGesamt As Currency      '  
    '----------------------------------------  
    'collection 2  
    Private e_GespDauer As Integer          '  
    Private e_GesEinheiten As String        '  
    Private e_GespNummer As String          '  
    Private e_GespDatum As Date             '  
    Private e_GespUhrzeit As Date           '  
    Private e_KostenEinzelGesp As Currency  '  


'----------------------MailAdresse------------------  
Public Property Let MailAdresse(ByVal oMailAdresse As String)
    m_MailAdresse = oMailAdresse
End Property

Public Property Get MailAdresse() As String
    MailAdresse = m_MailAdresse
End Property

'----------------------Absender------------------  
Public Property Let Absender(ByVal oAbsender As String)
    m_Absender = oAbsender
End Property

Public Property Get Absender() As String
    Absender = m_Absender
End Property
 