In diesem Artikel zeigen wir Ihnen, wie Sie einfügen. Daten in eine Excel Tabelle mit VBA Code Mit Hilfe der in Excel eingebauten Eigenschaften und Methoden können wir die Funktionalität des Hinzufügens oder Überschreibens von Daten in einer Tabelle leicht erleichtern. Tauchen wir in die Beispiele ein, um ein klares Verständnis der Methoden zusammen mit den VBA-Codes zu erhalten.

Download Arbeitsbuch Praxis

Laden Sie dieses Übungsheft herunter, um zu üben, während Sie diesen Artikel lesen.

4 Beispiele zum Einfügen von Daten in eine Tabelle mit VBA in Excel

Nehmen wir an, wir haben eine Verkaufsliste eines Shops mit Details wie Bestelldatum, Produktname, Menge, Einzelpreis und Gesamtpreis.

Wie man eine Tabelle in Excel erstellt

An drehen. die Datensatz in eine Excel-Tabelle tun Sie Folgendes.

• Wählen Sie die gesamter Datensatz .
• Weiter zum Registerkarte einfügen von der Excel-Farbband .
• Klicken Sie auf über die Tabelle Option.

• Klicken Sie schließlich auf die Schaltfläche OK-Taste im Fenster Tabelle erstellen.

• Wir haben erfolgreich umgewandelt die Datensatz in eine Excel-Tabelle .

Um Daten in eine Excel-Tabelle einzufügen, werden wir mehrere Methoden verwenden VBA-Funktionen und Eigenschaften in unserem Code Im folgenden Abschnitt wird beschrieben, wie Sie öffnen und Code schreiben im Visual Basic-Editor.

Code im Visual Basic-Editor schreiben

Folgen Sie der Schritte zu öffnen die Visual Basic-Editor und schreiben Sie dort etwas Code.

• Gehen Sie zum Entwickler von der Registerkarte Excel-Farbband .
• Klicken Sie auf die Visual Basic-Option.

• In der Visual Basic für Anwendungen Fenster, klicken Sie auf die Schaltfläche Dropdown einfügen zu Wählen Sie die Neues Modul

Nun, da ein neues Modul ist geöffnet , schreiben Sie dort etwas Code und drücken Sie F5 zu laufen.

1. Einfügen von Daten in die letzte Zeile einer Tabelle mit VBA in Excel

In diesem Beispiel verwenden wir eine VBA Code nach hinzufügen. a neue Zeile am unten der Tabelle und dann Daten einfügen In unserer Tabelle haben wir 4 Reihen von Daten Zum Hinzufügen der 5. , kopieren. und einfügen den folgenden Code in den Visual Basic-Editor ein.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add() With addedRow .Range(1) = "1/1/2022" .Range(2) = "Apple" .Range(3) = 5 .Range(4) = 1.77 End With End Sub 

F5 drücken zu laufen. die Code.

Wir haben eingefügt a neue Zeile von Daten am unten der bestehende Tabelle .

Code-Erläuterung:

• In unserem Code haben wir die ListObjects-Objekt von VBA Excel zu greifen die Tabelle mit seinem Name Für weitere Informationen, jede der ListObject Objekte ist ein Tabelle über die Arbeitsblatt Um den Tabellennamen zu erhalten, anklicken. über die Tabelle >> anklicken. über die Registerkarte Tabellengestaltung im Excel-Farbband.

• Dann haben wir die ListRows . Methode hinzufügen zum Hinzufügen einer neue Zeile im Tabelle . diese Methode nimmt zwei Argumente : Position und ImmerEinfügen .

Durch die Eingabe einer ganze Zahl können wir die relative Position der neu hinzugefügte Zeile im Tabelle In diesem Beispiel werden wir leer gelassen die Positionsargument als Ergebnis, eine neue Zeile wurde hinzugefügt. am unten der Tabelle .

• Schließlich stellen wir Daten in jede der Zellen des neuen hinzugefügte Zeile In diesem Fall wurden die Daten .Range(1) = "1/1/2022" als OrderDate, .Range(2) = "Apfel" als Produkt, .Bereich(3) = 5 als Menge, .Bereich(4) = 1,77 als Preis pro Einheit.

Lesen Sie mehr: Excel-Tabellenname: Alles, was Sie wissen müssen

2. Ausführen eines VBA-Codes zum Einfügen von Daten in einer bestimmten Zeile einer Tabelle in Excel

In dieser Illustration werden wir Folgendes tun eine Datenzeile hinzufügen zu einem bestimmte Zeile in Bezug auf die Tabelle unter Verwendung desselben Codes, den wir im obigen Beispiel verwendet haben. In diesem Fall müssen wir nur angeben. die Argument der Position der ListRows.Add Methode Nehmen wir an, wir wollen in unserem Code Verkaufsdaten hinzufügen für Orange mit Details in Zeile Nummer 3 relativ zum bestehende Tabelle Damit dies geschehen kann, kopieren. und einfügen die folgenden Code in den visuellen Code-Editor.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add(3) With addedRow .Range(1) = "1/1/2022" .Range(2) = "Orange" .Range(3) = 3 .Range(4) = 2.14 End With End Sub 

Ausführen des Codes durch Drücken von F5 eingefügt die Verkaufsdaten für Orange in der 3. Zeile bezogen auf die Tabelle .

Lesen Sie mehr: Excel-VBA-Code für jede Zeile in einer Tabelle (Hinzufügen, Überschreiben, Löschen usw.)

Ähnliche Lektüre

• Berechnete Feldsumme dividiert durch Anzahl in Pivot-Tabelle
• Veranschaulichung der relativen Häufigkeitsverteilung in Excel
• [Fix] Daten können in Pivot-Tabelle nicht gruppiert werden: 4 mögliche Lösungen
• Berechnung der prozentualen Häufigkeitsverteilung in Excel (2 Methoden)
• Pivot-Tabelle wird nicht aktualisiert (5 Probleme & Lösungen)

3. Einfügen und Überschreiben von Daten in eine Tabelle mit VBA in Excel

Hier zeigen wir Ihnen, wie Sie überschreiben. die vorhandene Daten in einem Tabelle stattdessen von Einfügen a neue Zeile von Daten Dazu müssen wir die Funktion ListObject.ListRows-Eigenschaft von Excel stattdessen der ListRows.Add Eigenschaft verwendeten wir früher . die ListObject.ListRows-Eigenschaft nimmt auch Zeilennummer ( Integer Wert ) als seine Argument Sagen wir, wir wollen ändern die Stückpreis der Orange von 2,14 bis 2,35 dass wir eingefügt im vorheriges Beispiel . Kopieren und einfügen den folgenden Code im Visual Basic-Editor.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows(3) With addedRow .Range(1) = "1/1/2022" .Range(2) = "Orange" .Range(3) = 3 .Range(4) = 2.35 End With End Sub 

In unserem Code, wir einstellen. die Argument für die ListObject.ListRows-Eigenschaft als 3 wo die Daten für Orange gehört zu . laufen die Code durch Drücken von F5 und sehen Sie die Unterschied .

Der Code hat geändert nur die Stückpreis der Daten unter Zeile Nummer 3 relativ zum Tabelle .

Lesen Sie mehr: Einfügen oder Löschen von Zeilen und Spalten in einer Excel-Tabelle

4. Ausführen eines VBA-Codes zum Einfügen von Daten in eine Excel-Tabelle auf der Grundlage einer Benutzereingabe

In diesem Beispiel werden wir einfügen. die Tabellenname und Verkaufsdetails eines Produkt als Benutzereingabe statt Hardcode es im VBA-Code jedes Mal Befolgen Sie dazu die nachstehenden Anweisungen.

• Kopieren und einfügen den folgenden Code in den visuellen Code-Editor ein.

 Sub InsertDataIntoTable() Dim tableName As ListObject Dim A, B, C, D, tName As String tName = Application.InputBox(Prompt:="Name der Tabelle: ", Type:=2) A = Application.InputBox(Prompt:="Bestelldatum: ", Type:=2) B = Application.InputBox(Prompt:="Produktname: ", Type:=2) C = Application.InputBox(Prompt:="Menge: ", Type:=2) D = Application.InputBox(Prompt:="Einzelpreis: ",Type:=2) Set tableName = ActiveSheet.ListObjects(tName) Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add() With addedRow .Range(1) = A .Range(2) = B .Range(3) = C .Range(4) = D End With End Sub 

• Presse F5 zu laufen. den Code.
• Setzen Sie die Name der Tabelle im Eingabefeld ( Tabelle1 (in diesem Beispiel) und drücken Sie GUT.

• Geben Sie dann die Werte für Bestelldatum, Produktname, Menge, und Preis pro Einheit im Eingabefelder dass sequentiell erschienen In diesem Beispiel werden die folgenden Werte verwendet 1/1/2022, Orange, 3, und 35.

• Infolgedessen haben wir eine neue Zeile mit dem eingegebene Daten am unten der Tabelle .

Lesen Sie mehr: Tipps zur Excel-Tabellenformatierung - Ändern Sie das Aussehen der Tabelle

Anmerkungen

Wenn wir hinzugefügt. a neue Zeile mit Daten mit VBA-Code, die Format und Formeln bekommen. getragen zum neue Zeile automatisch In unserem Beispiel ist die GesamtPreis Spalte Ausgänge die Produkt der Spalten Menge und Preis pro Einheit Wir haben gerade nur eingefügt die Menge und Werte des Einheitspreises die neue Zeile war eingefügt mit dem Produkt dieser zwei Werte im Spalte Gesamtpreis.

Schlussfolgerung

Jetzt wissen wir, wie man mit VBA-Code Daten in eine Excel-Tabelle einfügt. Hoffentlich hilft es Ihnen, diese Methoden sicherer anzuwenden. Wenn Sie Fragen oder Anregungen haben, vergessen Sie nicht, sie in das Kommentarfeld unten zu schreiben.