Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Excel Tabelle an Textmarke in Word einfügen

Excel Tabelle an Textmarke in Word einfügen
11.12.2004 22:48:52
Conrad
Hallo hab zu diesem Thema schon recherchiert, aber irgendwie kriege ich es nicht ganz hin.
Einzelne Zellenwerte an einer Textmarke einzufügen ist kein Problem. Aber bei Tabellen geht es nicht ganz. Hab schon versucht den copy & paste Vorgang über den MAkro Recorder aufzuzeichnen, aber zwischen den Applikationen haut das nicht ganz hin.
Nehmen wir an die Textmarke heißt "marke" und aus Excel soll einfach der Bereich "A1:B2" kopiert und eingefügt werden. Wie müsste der Code aussehen?
Vielen Dank
Conrad
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Tabelle an Textmarke in Word einfügen
Ramses
Hallo
probier mal das, allerdings werden die Tabellen entsprechend der Grundeinstellung WORD entweder Positionsabhängig oder -unabhängig eingefügt.
Das musst du halt dann korrigieren

Sub Word_Dokument_von_Excel_aus_steuern()
Dim myWord As Object
'Fehlerroutine für die Objectabfrage aktivieren
On Error Resume Next
'Abfragen einer besthenden WORD-Instanz um wiederholtes starten zu verhindern
'9 = Word 2000, 10 = Word XP
Set myWord = GetObject("Word.Application.10")
If Err.Number <> 0 Then
'Fehlervariable leeren wenn Instanz noch nicht besteht
Err.Clear
'Zuweisung der Instanz
Set myWord = CreateObject("Word.Application.10")
'Instanz öffnen
'Um das ganze etwas im Hintergrund laufen zu lassen
'kann man den Status "wdWindowStateMinimize" verwenden
myWord.Visible = True: myWord.WindowState = wdWindowStateMaximize
Else
'Instanz besteht bereits
myWord.Activate
'Instanz in der Vordergrund bringen oder
'mit "wdWindowStateMinimize" im Hintergrund ausführen
myWord.Visible = True: myWord.WindowState = wdWindowStateMaximize
End If
'Hier muss der der Dateiname stehen der verwendet werden soll
'Es sollte aber eine Dokumentvorlage verwendet werden
'um keine Änderungen an den Textmarken beim einfügen zu verursachen
myWord.Application.Documents.Open "C:\Test.doc"
'Kopieren des EXCEL-Bereiches
Worksheets("Tabelle1").Range("A1:B10").Copy
'Zur jeweiligen Textmarke springen wegen des Einfügens
'Hier im Beispiel "A1"
myWord.GoTo What:=wdGoToBookmark, name:="A1"
'Einfügen des kopierten Bereiches
myWord.Selection.Paste
'Hier noch wie verschiedene Zellinhalte an verschiedene
'Textmarken zugewiesen wird, ohne diese jeweils anzuspringen
'Die Textmarken "a1, a2, a3" müssen im Dokument bereits bestehen
'Dann werden nach dem öffnen des Dokuments die Werte von Tabelle1
'A1, B1 und C1 in die jeweiligen Textmarken geschrieben
myWord.ActiveDocument.Bookmarks("a1").Range.Text = Worksheets("Tabelle1").Range("A1")
myWord.ActiveDocument.Bookmarks("a2").Range.Text = Worksheets("Tabelle1").Range("B1")
myWord.ActiveDocument.Bookmarks("a3").Range.Text = Worksheets("Tabelle1").Range("C1")
'Das aktive WordDokument drucken
'myWord.ActiveDocument.PrintOut
'Dokument schliessen mit speichern
myWord.ActiveDocument.Close savechanges:=True
'Speichern mit fixem Namen
'myWord.ActiveDocument.SaveAs Filename:="DokumentName", FileFormat:=wdFormatDocument
'Speichern mit Variable
'myWord.ActiveDocument.SaveAs Filename:=Variable, FileFormat:=wdFormatDocument
'WORD-Instanz schliessen
myWord.Application.Quit (True)
'Variable leeren
Set myWord = Nothing
End Sub

Gruss Rainer
Anzeige
AW: Excel Tabelle an Textmarke in Word einfügen
14.12.2004 10:52:54
Conrad
Danke autom. Einfügen klappt bestens. Tabelle wird eingefügt, aber unabhängig von der Textmarke am Anfang des Word-Dokuments. Die von dir angesprochene Option habe ich nicht gefunden.
Ich habe unter Extras-Optionen-Bearbeiten-EinfügeOptionen gekuckt, und versch. Sachen ausprobiert, aber konnte das Problem nicht lösen. Also falls Du mir da nochmal helfen könntest, wäre ich Dir sehr dankbar.
Conrad
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Excel Tabelle an Textmarke in Word einfügen


Schritt-für-Schritt-Anleitung

Um eine Excel-Tabelle an einer Textmarke in Word einzufügen, kannst Du den folgenden VBA-Code verwenden. Dieser Code ermöglicht es Dir, einen bestimmten Bereich aus Excel zu kopieren und an einer definierten Textmarke in einem Word-Dokument einzufügen.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
  2. Füge ein neues Modul ein, indem Du mit der rechten Maustaste auf "VBAProject" klickst und "Einfügen" > "Modul" wählst.
  3. Kopiere und füge den folgenden Code in das Modul ein:
Sub Word_Dokument_von_Excel_aus_steuern()
    Dim myWord As Object
    On Error Resume Next
    Set myWord = GetObject("Word.Application.10")
    If Err.Number <> 0 Then
        Err.Clear
        Set myWord = CreateObject("Word.Application.10")
        myWord.Visible = True: myWord.WindowState = wdWindowStateMaximize
    Else
        myWord.Activate
        myWord.Visible = True: myWord.WindowState = wdWindowStateMaximize
    End If
    myWord.Application.Documents.Open "C:\Test.doc"
    Worksheets("Tabelle1").Range("A1:B2").Copy
    myWord.GoTo What:=wdGoToBookmark, name:="marke"
    myWord.Selection.Paste
    myWord.ActiveDocument.Close savechanges:=True
    myWord.Application.Quit (True)
    Set myWord = Nothing
End Sub
  1. Stelle sicher, dass Du den Pfad zu Deinem Word-Dokument anpasst.
  2. Führe das Makro aus, um die Tabelle an der Textmarke in Word einzufügen.

Häufige Fehler und Lösungen

  • Tabelle wird nicht an der Textmarke eingefügt: Überprüfe, ob die Textmarke im Word-Dokument korrekt erstellt wurde. Du kannst eine Textmarke in Word erstellen, indem Du den gewünschten Text auswählst und auf "Einfügen" > "Textmarke" klickst.

  • Excel-Anwendung öffnet nicht: Stelle sicher, dass Microsoft Word und Excel korrekt installiert sind und dass Du die richtige Version im Code verwendest (z.B. "Word.Application.10" für Word 2000).


Alternative Methoden

Eine einfache Methode, um eine Excel-Tabelle in Word einzufügen, besteht darin, die Tabelle direkt zu kopieren und in das Word-Dokument einzufügen. Dazu kannst Du den Bereich in Excel markieren, STRG + C drücken, und dann in Word STRG + V. Achte darauf, die eingefügten Optionen zu wählen, um das Layout zu bewahren.


Praktische Beispiele

Hier ist ein weiteres Beispiel, wie Du eine Excel-Tabelle in Word einfügen kannst:

  • Angenommen, Du hast eine Excel-Tabelle mit den Werten in den Zellen A1 bis B2. Deine Textmarke in Word heißt "marke". Der oben angegebene VBA-Code kopiert diesen Bereich und fügt ihn an der Textmarke ein.

Tipps für Profis

  • Verwende Word.tabelle als Grafik speichern, um sicherzustellen, dass das Layout der Tabelle beibehalten wird, wenn Du sie in Word einfügst.
  • Experimentiere mit den Einfügeoptionen in Word, um die Darstellung Deiner Tabelle anzupassen.
  • Stelle sicher, dass Deine Excel-Daten korrekt formatiert sind, um ein ansprechendes Ergebnis beim Einfügen in Word zu erzielen.

FAQ: Häufige Fragen

1. Kann ich mehrere Textmarken gleichzeitig ansteuern?
Ja, Du kannst mehrere Textmarken in Deinem Word-Dokument ansteuern, indem Du den Code entsprechend anpasst und für jede Textmarke den entsprechenden Wert aus Excel zuweist.

2. Wie kann ich die eingefügte Tabelle formatieren?
Nachdem Du die Tabelle eingefügt hast, kannst Du in Word die Formatierungsoptionen nutzen, um das Aussehen der Tabelle anzupassen. Nutze dazu die Funktionen im Tab "Tabellenlayout".

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige