Clever-Excel-Forum

Normale Version: Automatische Übertragung von Excel zu Word
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo zusammen,

ich bin neu in diesem Forum... da ich hier schon einige Male als Mitleserin gute Tipps bekommen habe, dachte ich, ich melde mich mal an, vielleicht kann mir bei der folgenden Frage auch wer weiterhelfen:

Gibt es eine Möglichkeit, Daten von Excel direkt per Klick in Word zu übertragen, am besten auch noch an eine bestimmte Stelle? Konkret ginge es um eine Speisekarte. In Excel-File sollen alle Speisen stehen, die ein Restaurant grundsätzlich anbieten kann. Da die Karte aber von Woche zu Woche ein wenig variiert, wäre es toll, wenn man in Excel die jeweiligen Speisen anwählen könnte und sie in Word in der entsprechenden Kategorie erscheinen würden. Sprich - ich wähle in Excel z. B. durch einen Haken den kleinen Beilagensalat aus und in Word erscheint er automatisch unter "Salate". Geht sowas überhaupt?

Vielleicht hat ja jemand eine Idee, würde mich total freuen :).

Liebe Grüße!!!
Hallo,

ja, es ist möglich. Vor wenigen Tagen hat snb entweder hier oder in einem Nachbarforum einen entsprechenden Code geposten.

Es wäre hilfreich, wenn die Stellen in Word mit bookmarks markiert wäre. Ebenso ein paar Infos über den Aufbau des xl-Sheets.

mfg

(auch falls ich snb's Code kopiert haben sollte, werde ich ihn nicht re-posten)
Am besten verwendet man Docvariables im Word.

Poste ein Beispiel Word Menüliste und wie das Excel aussieht.
Hallo,

von meiner Seite erst einmal ein Herzlich Willkommen.

Um das bereits Geschriebene eine wenig zu qualifizieren:

Setze in deiner Worddatei so genannte Textmarker. Wie das Funktioniert, findest du hier:
https://support.office.com/de-de/article...009d99c2a0

Nun kannst du mittels nachfolgendem Code, welcher naturgemäß noch angepasst werden muss, bestimmte Zellen an einen Textmarker setzen.

Code:
docTest.Bookmarks("vonExcel").Range.Text = Range("D15") & chr(10) & Range("D16") & chr(10) & Range("D17")
Quelle: http://www.herber.de/forum/archiv/712to7...t_VBA.html

Da wir den Aufbau deiner beiden Dateien nicht kennen und deine VBA-Kenntnisse nicht einschätzen können, ist eine weitere Hilfestellung an dieser Stelle schwierig. Idealerweise stellst du uns die beiden Dateien einmal anonymisiert zur Verfügung.