Public Property Get WT() As Collection
Set WT = xWT
End Property
Public Property Let WT(ByVal vNewValue As Collection)
Set xWT = vNewValue
End Property

Public Function Add(Tln As String, _
                              anr As Date, _
                              abr As Date, _
                              Übergabe As Collection) As clsWochenende
Dim DSnew As clsWochenende
Set DSnew = New clsWochenende
With DSnew
     .Tlnname = Tln
     .anreise = anr
     .abreise = abr
     .WT = Übergabe
 
End With
tempjeTln.Add DSnew
Set Add = DSnew
Set DSnew = Nothing
End Function

With Teilnehmer
For j = 1 To .count
Debug.Print .count, .item(j).Tlnname, .item(j).Tage
For i = 1 To .item(j).WT.count
Debug.Print .item(j).WT.item(i)
Next
Next
End With