Füllen Sie die Excel Tabelle mit VBA-Bereich

Ich habe eine Excel-Tabelle, die ich ausfüllen muss von einem Datensatz.

Begann ich einen code 

Private Sub AddRecBro_Click()
    Dim Tbl As ListObject
    Dim NewRow As ListRow

    Set Tbl = Worksheets("Broker").ListObjects("Broker")
    Set NewRow = Tbl.ListRows.Add(AlwaysInsert:=True)

    ....

End Sub

Nun möchte ich zum Auffüllen dieser Tabelle Feld für Feld ein bisschen wie dieses...

Field("ID")=Max(Broker[ID])+1
Field("F1")=Sheets("Dashboard").Range("U5").Value
Field("F2")=Sheets("Dashboard").Range("U6").Value
Field("F3")=Sheets("Dashboard").Range("U7").Value
etccc

Ich weiß nicht, wie Sie füllen meine Liste mit Objekten, die dieser Weg...Eigentlich habe ich meine Daten in der Spalte und nicht an der gleichen Stelle... also ich würde gerne wählen Sie an Ihrem Standort zu Füllen, bis die Neue Platte...
Dank

InformationsquelleAutor sharkantipav | 2014-05-11
  1. 2

    Einen ListObject Tabelle besteht aus einer HeaderRowRange (falls in der Tabelle hat überschriften) und eine DataBodyRange. Beide sind Range Objekte, die Sie iterieren mit der normalen iteration Methoden für die Zellen:

    Dim r as Long, c as Long

For r = 1 to Tbl.DataBodyRange.Rows.Count
    For c = 1 to Tbl.DataBodyRange.COlumns.Count
        Tbl.DataBodyRange.Cells(r, c).Value = "__Insert some value__"
    Next
Next
    • thks für deine Antwort.. ich habe ein Fehler mit Tbl.DataBodyRange.cells(r, 1).Value = Max(Tbl.DataBodyRange.Column("A")) + 1... weißt du, warum?
    • Was ist der Fehler??? Vielleicht versuchen = Application.Max(Tbl.DataBodyRange.Columns(1)) + 1.
    • Funktioniert perfekt Danke
    InformationsquelleAutor David Zemens
Schreibe einen Kommentar