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
     Set WT = Übergabe
 
Debug.Print WT.item(1), WT.item(2), WT.item(3), WT.item(4)
' oder Debug.Print WT(1), WT(2), WT(3), WT(4).. geht beides
 
End With
tempjeTln.Add DSnew
Set Add = DSnew
Set DSnew = Nothing
End Function