Private Sub Form_Load()
 
        flxTable.Cols = 8
        flxTable.FixedRows = 1
        flxTable.FormatString = _
          "<Zeile|<Name|<Vorname|<Straße|<PLZ/Ort|<Telefon|<Email|<Geburtsdatum"
        List.FillTable
 
End Sub

Public Function FillTable()
    Dim Pers As Person
    Dim Index As Integer
    Dim newItem As PersonListItem
 
    frmTable.flxTable.Rows = List.Count
 
        For Index = 1 To List.Count
 
            Set newItem = List.Item(Index)
            Set Pers = newItem.Get_Person()
 
            With frmTable
                .flxTable.TextMatrix(1, 1) = Pers.Get_txtName()
                .flxTable.TextMatrix(1, 2) = Pers.Get_txtVName()
                .flxTable.TextMatrix(1, 3) = Pers.Get_txtAddress()
                .flxTable.TextMatrix(1, 4) = Pers.Get_txtPLZ()
                .flxTable.TextMatrix(1, 5) = Pers.Get_txtTel()
                .flxTable.TextMatrix(1, 6) = Pers.Get_txtEmail()
                .flxTable.TextMatrix(1, 7) = Pers.Get_txtBirth()
            End With
 
        Next
 
End Function
 
Was mache ich noch falsch?