Tabelle in Word einfügen.

Hallo alle.

Ich möchte gerne in einem Worddokument eine Tabelle einfügen und ausfüllen. Über ein Formular werden zuerst die Daten in eine Tabelle übertragen:

Worksheets(Arbeitsfolie).Cells(lngZeile + 1, 5).Value = Anzahl_Erwachsene.Value

Danach möchte ich ein Word erstellen, schaffe es aber nicht, die Tabelle an die richtige Stelle einzufügen:

Dim Arbeitsfolie As String
Dim lngZeile As Long
Dim lngSpalte As Long
Dim Arbeitsmappenname As String
Dim BlattName As String
Dim wordapp As New Word.Application
Dim doc As Word.Document
Dim Preis_Erwachsene As Double

'**Preis Erwachsene festlegen**
Preis_Erwachsene = 33#

Arbeitsfolie = "GS Verkauf"
IngZeile = ActiveCell.Row

'** Word sichtbar machen
wordapp.Visible = True
wordapp.Activate

'** Word-Datei öffnen
Set doc = wordapp.Documents.Open(":\Users\Test07.docx")

'** Word-Datei abspeichern
doc.SaveAs2 ThisWorkbook.Path & "\RG " & Rechnungs_Nr.Value & " " & Nachnamen.Value & ".docx"

'** Word-Datei mit Excel-Daten befüllen
doc.Bookmarks("RG").Range.Text = Rechnungs_Nr.Value
doc.Bookmarks("Datum").Range.Text = Date

Hier sollte dann die Tabelle eingefügt und mit Daten befüllt werden. Kann mir jemand helfen?

Schon mal vielen Dank!
Daniele

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

.Bookmarks(myBMName).Select 'Cursor an die Position der Textmarke setzen 'die neue Word-Tabelle erstellen an der Position der Textmarke "myBMNAme" .Tables.Add Range:=AppWD.Selection.Range, NumRows:=zeilen, NumColumns:=spalten Set WDTable = .Tables(1) 'die neue Tabelle als Object "Table" definieren (Achtung Ordnungsnummer der Tabelle berücksichtigen!!!) With WDTable 'die relevanten Daten aus dem Excel-Tabellenbereich in die Word-Tabelle schreiben For ze = 1 To zeilen .cell(ze, 1) = myRange.Cells(ze, 1).Text .cell(ze, 2) = myRange.Cells(ze, 2).Text Next End With

Daniele,
das zuvor Geschriebene ist Blödsinn, da habe ich mich mit einer anderen Anwendung verhaspelt, sorry.
Versuchs mit diesem Code (ersetze einfach den vorhanden "Private Sub Rechnung_DE_Click()")
mit dem folgenden:

Private Sub Rechnung_DE_Click()



    'Achtung!! Zeilen und Spalten für die Word-TAbelle festlegen!!!

    Dim WdZeilen As Long: WdZeilen = 4      'wieviele Zeilen soll die Word-Tabelle haben?

    Dim WdSpalten As Long: WdSpalten = 6    'wieviele Spalten soll die Word-Tabelle haben?

    Dim sp As Long 'sp ist der Schleifenzähler für das Formatieren der Textausrichtung in der Word-TAbelle

    Dim RgZeile As Long

    RZeile = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row 'hier wird die letzte gefüllte Zeile in Spalte A gefunden

    

    '*********** Hier wird die Rechnung DE für CHF und Euro erstellt*********

    '** Abfrage ob die erfassten Daten schon gespeichert wurden

    If StatusButton_Speichern = 1 Then

      GoTo N5

    Else

      MsgBox "Daten noch nicht gespeichert"

      Exit Sub

    End If

    

    '** Sprungziel Daten wurden gespeichert

N5:

    StatusButton_Speichern = 0

    

    '************ Variablen belegen**************

    '**Preis Erwachsene festlegen**

    Preis_Erwachsene = 33#

    

    '**Preis Kinder festlegen**

    Preis_Kinder = 21#

    

    '**Preis Porto festlegen**

    Versand_Kosten = 5#

    

    '**Preis Erwachsene festlegen**

    Preis_Erwachsene_Euro = 33#

    

    '**Preis Kinder festlegen**

    Preis_Kinder_Euro = 21#

    

    '**Preis Porto festlegen**

    Porto_Barb_Euro = 5#

    Arbeitsfolie = "GS Verkauf"

    IngZeile = ActiveCell.Row

    

    '*Word Application initialisieren

    Set wordapp = CreateObject("Word.Application")

    

    '** Word-Datei initialisieren und ein neues Dokument öffnen

    'Set doc = wordapp.Documents.Open("C:\Users\dal\Desktop\QR_Rechnung_SSCT_Test.docx")

    Set doc = wordapp.Documents.Open("G:\MeinExcel\Herbers Excel-Forum\Daniele_29092023\QR_Rechnung_SSCT_Test.docx")

    

    '** Word sichtbar machen

    wordapp.Visible = True

    

    '** die offene Word-Datei unter neuem NAmen speichern

    With doc

      .SaveAs2 ThisWorkbook.Path & "\RG " & Rechnungs_Nr.Value & " " & Nachnamen.Value & ".docx"

      

      '** die neue Word-Datei mit Excel-Daten befüllen

      .Bookmarks("RG").Range.Text = Rechnungs_Nr.Value

      .Bookmarks("Datum").Range.Text = Date

      If Firma.Value = "" Then

        .Bookmarks("Anrede").Range.Text = Anrede.Value

        .Bookmarks("Anschrift").Range.Text = Vornamen.Value & " " & Nachnamen.Value

      Else

        .Bookmarks("Anrede").Range.Text = Firma.Value

        .Bookmarks("Anschrift").Range.Text = Anrede.Value & " " & Vornamen.Value & " " & Nachnamen.Value

      End If

      .Bookmarks("Strasse").Range.Text = Strasse & " " & NR.Value

      .Bookmarks("Ort").Range.Text = PLZ & " " & Ort.Value

      .Bookmarks("Datum2").Range.Text = Datum.Value ' & " " & "/" & " " & TextKZ.Value

      .Bookmarks("RG2").Range.Text = Rechnungs_Nr.Value

      

      '************-- neue Word-Tabelle erstellen -- *************************

      .Bookmarks("myBMNAme").Select    'Cursor an die Position der Textmarke "myBMName" setzen

      'die neue Word-Tabelle erstellen an der aktuellen Cursor-Position, also an der Textmarke "myBMNAme"

      .Tables.Add Range:=wordapp.Selection.Range, NumRows:=WdZeilen, NumColumns:=WdSpalten 'Zeilen und Spaltenanzahl angepasst?

      Set wdTabelle = .Tables(doc.Tables.Count) 'die neue Tabelle(!!!) als Object "Table" definieren

      With wdTabelle

        'die relevanten Daten aus dem Excel-Tabellenbereich in die Word-Tabelle schreiben

        'hier muss natürlich noch einiges an Deine Zielvorstellung angepasst werden

        .Cell(1, 1) = "Datum"

        .Cell(1, 2) = "RG.-Nr."

        .Cell(1, 3) = "Preis"

        .Cell(1, 4) = "Versand"

        .Cell(1, 5) = "Porto/Bearbtg."

        .Cell(1, 6) = "Kosten"

        .Cell(2, 1) = Sheets("GS Verkauf").Cells(RgZeile + 1, 1).Text

        .Cell(2, 2) = Sheets("GS Verkauf").Cells(RgZeile + 1, 4).Text

        .Cell(2, 3) = Format(Preis_Erwachsene_Euro, "#,##0.00" & " ")

        .Cell(2, 4) = Format(Versand_Kosten, "#,##0.00" & " ")

        .Cell(2, 5) = Format(Porto_Barb_Euro, "#,##0.00" & " ")

        .Cell(2, 6) = Format(Preis_Erwachsene_Euro + Versand_Kosten + Porto_Barb_Euro, "#,##0.00" & " ")

        .Cell(3, 5) = "19% Mehrwertsteuer"

        .Cell(3, 6) = Format((Preis_Erwachsene_Euro + Versand_Kosten + Porto_Barb_Euro) * 0.19, "#,##0.00" & " ")

        .Cell(4, 5) = "Rechnungssumme"

        .Cell(4, 6) = Format((Preis_Erwachsene_Euro + Versand_Kosten + Porto_Barb_Euro) * 1.19, "#,##0.00" & " ")

        '** der Text in der ersten Zeile der Tabelle wird fett gedruckt

        For sp = 1 To 6

          .Cell(1, sp).Select

          wordapp.Selection.Font.Bold = wdToggle

          .Cell(4, sp).Select

          wordapp.Selection.Font.Bold = wdToggle

        Next

       '** Die Spalten mit numerischen Werten rechtsbündig

        For sp = 2 To 6

          .Columns(sp).Select

          wordapp.Selection.ParagraphFormat.Alignment = 2 'wdAlignParagraphRight

        Next

        '** in der Zeile der Gesamtsumme für die Optik die Zellen in Spalte 3 und 4 verbinden

        .Cell(Row:=3, Column:=4).Merge MergeTo:=.Cell(Row:=3, Column:=5)

        .Cell(Row:=4, Column:=4).Merge MergeTo:=.Cell(Row:=4, Column:=5)

      End With

      

      '** Cursor im Word-Dokument an den Anfang des Dokumentes setzen

      wordapp.Selection.HomeKey Unit:=wdStory, Extend:=wdMove

      

      'das neue Word-Dokument in den Vordergrund holen

      wordapp.Activate

    End With

    

    'Userform schließen

    Unload Me



    

    '**Bild einfügen

    'Set wrdPic = doc.Bookmarks("Bild").Range.InlineShapes.AddPicture("C:\Users\kaiwe\Desktop\Beispielbild.jpg")

    'wrdPic.ScaleHeight = 10

    'wrdPic.ScaleWidth = 10



    '** Word-Datei schließen

    'doc.Close SaveChanges:=False



    '** Word-Applikation schließen

    wordapp.Quit

End Sub

Gruß
Jochen

.Cell(2, 3) = "CHF " & Format(Preis_Erwachsene_Euro, "#,##0.00") .Cell(2, 4) = "CHF " & Format(Versand_Kosten, "#,##0.00") .Cell(2, 5) = "CHF " & Format(Porto_Barb_Euro, "#,##0.00") .Cell(2, 6) = "CHF " & Format(Preis_Erwachsene_Euro + Versand_Kosten + Porto_Barb_Euro, "#,##0.00") .Cell(3, 5) = "19% Mehrwertsteuer" .Cell(3, 6) = "CHF " & Format((Preis_Erwachsene_Euro + Versand_Kosten + Porto_Barb_Euro) * 0.19, "#,##0.00") .Cell(4, 5) = "Rechnungssumme" .Cell(4, 6) = "CHF " & Format((Preis_Erwachsene_Euro + Versand_Kosten + Porto_Barb_Euro) * 1.19, "#,##0.00")

Dim tbWordTab As Word.Table dim sp as long set tbwordtab=doc.Tables.Add( Range:=AppWD.Selection.Range, NumRows:=zeilen, NumColumns:=spalten) With tbwordtab For ze = 1 To zeilen for sp=1 to spalten .Cells(ze, sp) = myRange.Cells(ze, sp).Text next sp Next ze End With

Infobox zum Thema

EXCEL - Tabelle in Word einfügen

Die Fragestellung

Du möchtest wissen, wie man eine Tabelle aus Excel in ein Word-Dokument einfügt.

Erläuterung des Problems {#erläuterung-des-problems}

Das Einfügen einer Excel-Tabelle in ein Word-Dokument ist eine häufige Aufgabe, wenn man Datenberichte oder Dokumentationen erstellt. Es gibt verschiedene Methoden, dies zu tun, je nachdem, ob die Tabelle in Word bearbeitet werden soll oder ob sie lediglich als Bild angezeigt werden soll.

Lösung des Problems {#lösung-des-problems}

Hier sind einige Methoden, um eine Excel-Tabelle in Word einzufügen:

Kopieren und Einfügen:
- Wähle die Tabelle in Excel aus.
- Kopiere sie mit STRG + C.
- Wechsle zu Word und füge sie mit STRG + V ein.
- Wähle zwischen verschiedenen Einfügeoptionen (als Excel-Tabelle behalten, mit/ohne Formatierung, als Bild, etc.).
Als Excel-Objekt einfügen:
- In Word, gehe zu "Einfügen" > "Objekt" > "Objekt aus Datei erstellen".
- Wähle die Excel-Datei aus und entscheide, ob du sie verknüpfen oder einbetten möchtest.
Verknüpfung zu Excel:
- Wenn du möchtest, dass die Tabelle in Word aktualisiert wird, wenn die Originaltabelle in Excel geändert wird, verwende die "Verknüpfen"-Option beim Einfügen.
Einfügen als Bild:
- In Excel, wähle die Tabelle aus und kopiere sie.
- In Word, wähle "Einfügen" > "Bilder" > "Bild aus Zwischenablage".
VBA-Makro in Word:
- Du kannst auch ein VBA-Makro in Word verwenden, um eine Excel-Tabelle automatisch einzufügen:

Sub ExcelTabelleEinfuegen()
    Dim objExcel As New Excel.Application
    Dim exWb As Excel.Workbook

    Set exWb = objExcel.Workbooks.Open("C:\Pfad\Datei.xlsx")

    exWb.Sheets(1).Range("A1:D10").Copy

    ThisDocument.Range.PasteExcelTable _
        LinkedToExcel:=False, _
        WordFormatting:=False, _
        RTF:=False

    exWb.Close False
    objExcel.Quit

    Set exWb = Nothing
    Set objExcel = Nothing
End Sub

Ersetze "C:\Pfad\Datei.xlsx" mit dem Pfad zu deiner Excel-Datei und passe den Zellenbereich ("A1:D10") entsprechend an.

Anwendungsbeispiele aus der Praxis

Berichterstattung: Integration von Finanztabellen in Geschäftsberichte.
Dokumentation: Einfügen von Datentabellen in technische Dokumentationen.

Tipps

Wenn du die Tabelle oft aktualisieren musst, ist es sinnvoll, eine Verknüpfung zu erstellen, damit Änderungen in Excel automatisch in Word übernommen werden.
Wenn die Tabelle nicht bearbeitet werden muss, kann das Einfügen als Bild die beste Option sein, um das Layout zu sichern.

Zusammenfassung

Das Einfügen einer Excel-Tabelle in ein Word-Dokument kann auf verschiedene Weisen erfolgen, abhängig von den Anforderungen an die Bearbeitbarkeit und Aktualität der Daten. Die Methoden reichen vom einfachen Kopieren und Einfügen bis hin zur Verwendung von VBA für komplexere Aufgaben. Wähle die Methode, die am besten zu deinem Workflow passt, um eine effiziente und effektive Dokumentenerstellung zu gewährleisten.

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

322 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Infobox zum Thema

EXCEL - Tabelle in Word einfügen

Inhaltsverzeichnis

Die Fragestellung

Erläuterung des Problems {#erläuterung-des-problems}

Lösung des Problems {#lösung-des-problems}

Anwendungsbeispiele aus der Praxis

Tipps

Verwandte Themenbereiche

Zusammenfassung

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabelle in Word einfügen.

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

322 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Infobox zum Thema

EXCEL - Tabelle in Word einfügen

Inhaltsverzeichnis

Die Fragestellung

Erläuterung des Problems {#erläuterung-des-problems}

Lösung des Problems {#lösung-des-problems}

Anwendungsbeispiele aus der Praxis

Tipps

Verwandte Themenbereiche

Zusammenfassung

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread