Excel VBA: Tabelle ausgeben

Computer: Software & Programmierung Visual Basic
#1

Hallo Zusammen,

hoffe ich finde hier Hilfe.
Habe über eine Schnittstelle Daten aus einem SAP System gezogen und diese nun in zwei Tabellen (TAB1, TAB2) vorliegen.

TAB1 beinhaltet allgemeine Infos (Kopfdaten)
Die Spalten dieser Tabelle müssen durchiteriert werden und die einzelnen Werte in vordefinierte Felder des Excel Dokumentes geschrieben werden.

TAB2 beinhaltet Positionsdaten, also mehrere Zeilen.
Auch hierbei sollen die Daten ab einer bestimmten Stelle im Dokument ausgegeben werden, also z.B. ab der Position C1.
Jede Spalte in der Tabelle steht für eine Spalte in der Excel Tabelle,also C1, D1, E1, F1
dann die nächste Zeile
C2, D2, E2, F2

Kann mir jemand helfen, wie ich überhaupt durch die Tabelle durchiteriere. Bin leider ein absoluter VBA Anfänger.

Danke im Voraus!

#2

Hi Lars,

hoffe ich finde hier Hilfe.

denke schon :smile:

Habe über eine Schnittstelle Daten aus einem SAP System
gezogen und diese nun in zwei Tabellen (TAB1, TAB2) vorliegen.

Aus deiner Beschreibung bleibt mir unklar wie denn nun TAB1 und TAB2 vorliegen, sind es zwei Tabellenblätter mit diesen Namen, zwei tabellen in einem Tabellenblatt und sind es überhaupt Blätter in einer Exceldatei…

TAB1 beinhaltet allgemeine Infos (Kopfdaten)
Die Spalten dieser Tabelle müssen durchiteriert werden und die
einzelnen Werte in vordefinierte Felder des Excel Dokumentes
geschrieben werden.

Klingt so als wären TAB1 usw außerhalb einer Excelarbeitsmappe.

TAB2 beinhaltet Positionsdaten, also mehrere Zeilen.
Auch hierbei sollen die Daten ab einer bestimmten Stelle im
Dokument ausgegeben werden, also z.B. ab der Position C1.
Jede Spalte in der Tabelle steht für eine Spalte in der Excel
Tabelle,also C1, D1, E1, F1
dann die nächste Zeile
C2, D2, E2, F2
Kann mir jemand helfen, wie ich überhaupt durch die Tabelle
durchiteriere. Bin leider ein absoluter VBA Anfänger.

Ich habe da noch Verständnisprobleme. Wenn du ein Tabellenblatt mit dem namen Tab1 hast und es beinhaltet in A1:F100 Daten, so kopierst du diese Daten in ein zweites Tabellenblatt mit dem Namen „Ziel“ so:

Worksheets(„Tab1“).Range(„A1:F100“).Copy destination:=Worksheets(„Ziel“).Range(„A1“)

Willst du z.B. die Zellen der Spalte A einzeln durchlaufen, ich nehme an das meinst du mit Iteration, so könnte das so aussehen:

For N = 1 to 100
 Worksheets("Tab1").Cells(N,1).Copy destination:=...
Next N

Gruß
Reinhard