Public Sub erstCol()
Dim xTln As String
Dim xtag As String
Dim i As Integer
ReDim Anwesend(TLNListe.count)
Dim temp As colTlnTage
Set temp = New colTlnTage
For i = 1 To Me.chkTag.count - 1
          xFormnr = Me.Formnr
          xTln = Me.txtName.Text
          xtag = Me.chkTag(i).Caption
 
 
     temp.Add xFormnr, xTln, xtag
 
 
Next
Set Anwesend(Me.Formnr) = temp
Set temp = Nothing
 
End Sub