mittels VBA Daten von Excel nach Word -

[mrhayabusa]

Ich brauche eure Hilfe! Ich bin erst am Start von VBA und stehe vor einem Problem

Ich habe eine Excel-Datei und ein Word Formular, welches von Daten aus Excel befüllt werden soll

Ich habe es bereits geschafft, das Wordformular zu öffnen und auch "normale" Felder mit Daten zu befüllen.
Jedoch möchte ich jetzt ein "inhaltssteuerungselement" im Wordformular zu befüllen. Es handelt sich dabei um eine Dropdown-Liste.
Das funktioniert aber nicht...ich bekomme immer einen Laufzeitfehler!
Kann mir jemand helfen! …..ich habe schon etliche Foren durchforstet, jedoch komme ich auf keine Lösung


Sub ichteste()
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
AppWD.documents.Open "Y:\test.docx"
AppWD.activedocument.formfields("dropdownliste").result = Range("c2")
End Sub

[WillWissen]

Hallo,

"Ich brauche...!"

Wenn ein gewisses Maß an Höflichkeit unterschritten wird, und dazu gehört eine Anrede und ein Gruß, fördert das nicht gerade die Hilfsbereitschaft.

[mrhayabusa]

Sorry!
Eigentlich dachte ich mit: "Ich brauche eure Hilfe" eh schon alles gesagt ist. Ich komme einfach nicht selbst weiter und bin für jede Hilfe dankbar.....

Aber ich probiere es nochmal und entschuldige mich für mein erstes Post!

Hallo an alle!

Ich bin auf eure Hilfe angewiesen und wäre sehr dankbar wenn ihr mich unterstützt!Ich habe eine Excel-Datei und ein Word Formular, welches von Daten aus Excel befüllt werden soll

Ich habe es bereits geschafft, das Wordformular zu öffnen und auch "normale" Felder mit Daten zu befüllen.
Jedoch möchte ich jetzt ein "inhaltssteuerungselement" im Wordformular befüllen. Es handelt sich dabei um eine Dropdown-Liste.
Das funktioniert aber nicht...ich bekomme immer einen Laufzeitfehler!
Kann mir jemand helfen! …..ich habe schon etliche Foren durchforstet, jedoch komme ich auf keine Lösung


Sub ichteste()
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
AppWD.documents.Open "Y:\test.docx"
AppWD.activedocument.formfields("dropdownliste").result = Range("c2")
End Sub


Habt ihr vielleicht einen Lösungsvorschlag bzw. könnt ihr mir sagen, was ich dabei falsch mache. Spreche ich das Feld vielleicht falsch an?

Für eure Hilfe wäre ich euch wirklich dankbar.

Lieben Gruß

[schauan]

Hallöchen,

was sagt denn der Laufzeitfehler aus?

Gibt es das angesprochene formfield / ist der Name korrekt?

Probiere mal Range("C2").Value

[mrhayabusa]

Hallo schauan!
Danke, dass du mir helfen willst und auch allen anderen die sich den Kopf vielleicht zerbrechen.

also bei dieser Formel kommt der Laufzeitfehler 5941

ich habe auch schon weiter recherchiert und denke ich darf nicht "formfields" verwenden, sondern "contentcontrol"….aber habe trotzdem keinen Erfolg,
anscheinend stelle ich mich zu doof an, suche aber schon den 4ten Tag nach einer Lösung.. :22:

Und der Name bzw. Tag lautet im Worddokument genauso wie beschrieben - "dropdownliste"

Wäre für jede Hilfe dankbar, die mich einen Schritt näher bringt.

[steve1da]

Hola,

verlinkst du bitte deine Fragen in den verschiedenen Foren gegenseitig?

Gruß,
steve1da

[mrhayabusa]

habe die Frage auch in einem weiteren Forum gestellt:

https://www.ms-office-forum.net/forum/sh...p?t=365295

sofern es eine Lösung gibt, werde ich sie auch hier verlautbaren!


DANKE AN ALLE DIE HELFEN WOLLEN!!!!!

[Rabe]

Hi,

Du steuerst den Inhalt der Word-Datei von Excel aus? Jedesmal beim Aufruf des Makros?

Warum benötigst Du dann nochmal ein Dropdown in Word?
Kannst Du nicht in Excel die Auswahl treffen und dann nur den ausgewählten Text in Word einfügen?

[mrhayabusa]

Hallo Rabe!

Ja, das wäre natürlich auch möglich und natürlich einfacher, da gebe ich dir schon recht.
Aber ich habe ein vorgefertigtes Formular von der Firma und möchte diese Formatvorlage beibehalten.
Da ist es eben so, dass es mehrere Dropdownfelder gibt, die ich gerne über Excel in das Wordformular eingefügt hätte ohne Änderungen an dem Dokument durchführen zu müssen.

Wenn es keine Lösung gibt, dann wird mir eh keine andere Wahl bleiben sämtlich Felder im Word zu ändern. :22:

lg

[Case]

Hallo, :19:

nimm die...

ContentControlListEntries. Add-Methode

Das musst du nun nur noch auf dein Excelmakro anpassen. :21: