Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2016to2020
2016to2020
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

VBA - Von Word Doc in Excel Sheet schreiben

Forumthread: VBA - Von Word Doc in Excel Sheet schreiben

VBA - Von Word Doc in Excel Sheet schreiben
06.10.2025 10:12:13
Hans
Guten Morgen zusammen,

ich möchte Informationen von meinem Word Dokument in ein Excel File schreiben.

1. Geht das überhaupt?
2. Wie geht das? Ich scheitere daran das ich der Zieldatei keine Variable zuweisen kann, weil es Workbook in Word-VBA anscheinend nicht gibt. Oder ich mach es falsch. Ich erhalte immer die Meldung "Benutzerdefinierter Typ nicht definiert". Muss ich den Pfad als String 

Sub WordZuExcel()

    Dim PfadZurDatei As String

    Dim ZielArbeitsmappe As Workbook



   Application.ScreenUpdating = False

   PfadZurDatei = "mein Pfad zur Excel Datei"



   Set ZielArbeitsmappe = Document.Open(PfadZurDatei)



   ZielArbeitsmappe.Sheets("Tabelle1").Range("A1").Value = "Meine Daten"

   Application.ScreenUpdating = True

End Sub


Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Von Word Doc in Excel Sheet schreiben
06.10.2025 12:15:25
Ulf
Hi,
du solltest einen Verweis auf Excel setzen, dann gibt es Intellisense-Hilfen (auskommentiert). Ohne geht es~ so 
Option Explicit



Dim xlApp As Object 'Excel.Application

Dim xlMappe As Object 'Excel.Workbook

Dim xlBlatt As Object 'Excel.Worksheet





Sub WordZuExcel()

    Dim PfadZurDatei As String

    Set xlApp = CreateObject("Excel.Application") '    New Excel.Application

    xlApp.Visible = True

    PfadZurDatei = "C:\Users\...\Documents\herber\search.xlsm"

    xlApp.ScreenUpdating = False

    'PfadZurDatei = "mein Pfad zur Excel Datei"

    Set xlMappe = xlApp.Workbooks.Open(PfadZurDatei, , False)

    Set xlBlatt = xlApp.Sheets("Tabelle1")

    xlBlatt.Range("A1").Value = "Meine Daten"

    xlApp.ScreenUpdating = True

    Set xlBlatt = Nothing

    Set xlMappe = Nothing

    Set xlApp = Nothing

End Sub

hth
Ulf
Anzeige
AW: VBA - Von Word Doc in Excel Sheet schreiben
06.10.2025 16:26:03
Hans
Danke Ulf. Jetzt erhalte ich immer die Meldung "Index außerhalb des gültigen Bereichs" mit verweis auf Set xlBlatt = xlApp.Sheets("Tabelle1")

Was könnte das jetzt sein? Also die Excel Datei auf die ich verweise gibt es genauso wie das Tabellenblatt. Hast du eine Idee?

Grüße
Ulf
Anzeige
AW: VBA - Von Word Doc in Excel Sheet schreiben
06.10.2025 20:08:50
xlKing
xlApp.Sheets("Tabelle1") ist Quatsch. Sicher ein versehentlicher Tippfehler. Das muss xlMappe.Sheets("Tabelle1") heißen.

Gruß Mr. K.
AW: VBA - Von Word Doc in Excel Sheet schreiben
06.10.2025 16:52:58
Hans
Kann das vielleicht am Dateipfad liegen? Ich habe den Teams/Sharepoint Pfad angeben. Wenn ich den Lokalenpfad angebe funktioniert es. Problem ist jeder hat einen anderen Lokalenpfad der sich aus der UserID ergibt und der Verknüpfung mit OneDrive. Bei manchen heißt es C:\Users\ABC\Unternehmen\etc..... bei anderen C:\Users\ABC\One Drive - Unternehmen\etc.....

Gibt es da irgendeine Lösung? Ich hoffe mein Problem ist verständlich
Anzeige
AW: VBA - Von Word Doc in Excel Sheet schreiben
06.10.2025 19:38:13
Ulf
Hi,
ich kann immer nicht nachvollziehen, wieso es in einem Unternehmen keine Vorschrift für sowas Elemtares gibt.
Ich war früher Entwickler und habe nichtkonforme PC nicht bedient.
https://gist.github.com/guwidoe/038398b6be1b16c458365716a921814d
zeigt wie aufwändig es ist, den Pfad halbwegs zuverläässig aus Teams usw. zu ermitteln.
hth
Ulf
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum