Excel-Daten nach BESTEHENDER Word-Tabelle
08.10.2023 07:42:11
Stefan
kann mir jemand sagen, wie ich die Daten eines Tabellenblatts aus Excel (3-Spalten, variierende Anzahl von Zeilen) in eine Word-Vorlage DOT bekomme, in der ebenfalls eine Tabelle mit 3 Spalten vorhanden ist. Demnach wäre es super, wenn die Tabelle in Word sich entsprechend der Anzahl von Zeilen selbst erweitert.
Habe bislang nur mit diesem Code von Bernd Held gearbeitet, allerdings fügt der mir eine eigene Tabelle in der 1 Zelle meiner Tabelle auf Word ein. Ich möchte ja nur die Daten aus Excel 1:1 in meine bestehende Tabelle in Word übertragen bekommen.
Danke für Eure Hilfe bereits im Voraus.
Stefan
' Bernd Held, Excel-VBA in 21 Tagen
Dim WordApp As Object
Dim WordDok As Object
Dim Bereich As Variant
Dim ExTab As Object
Dim i As Integer
Dim x As Integer
Dim y As Integer
' Namen der Tabelle anpassen oder Zeile auskommentieren
Sheets("Daten").Activate
Bereich = ActiveSheet.UsedRange
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDok = WordApp.Documents.Add(Template:="C:Vorlage.dot")
Set ExTab = WordDok.Tables.Add _
(WordApp.Selection.Range, _
UBound(Bereich, 1), UBound(Bereich, 2))
With ExTab
For x = 1 To UBound(Bereich, 1)
For y = 1 To UBound(Bereich, 2)
.Cell(x, y).Range.InsertAfter Bereich(x, y)
Next y
Next x
End With
Set ExTab = Nothing
Set WordDok = Nothing
Set WordApp = Nothing