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
Du musst angemeldet sein, um einen Kommentar abzugeben.
Einen
ListObject
Tabelle besteht aus einerHeaderRowRange
(falls in der Tabelle hat überschriften) und eineDataBodyRange
. Beide sindRange
Objekte, die Sie iterieren mit der normalen iteration Methoden für die Zellen:Tbl.DataBodyRange.cells(r, 1).Value = Max(Tbl.DataBodyRange.Column("A")) + 1
... weißt du, warum?= Application.Max(Tbl.DataBodyRange.Columns(1)) + 1
.