Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Wert von Excel in Word übernehmen
zurück: pivot in vba filtern und array? weiter: Makro:Spalten ausblenden, deren KW kleiner der aktuellen ist Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
stefanbla81
Gast


Verfasst am:
18. Mai 2009, 07:17
Rufname:

Wert von Excel in Word übernehmen - Wert von Excel in Word übernehmen

Nach oben
       Version: Office XP (2002)

Guten morgen zusammen,

mit diesem Code öffne ich aus Excel meine Word-Vorlage test.dot und erstelle ein neues Dokument mi dieser Vorlage.

Code:

Private Sub CommandButton2_Click()
    Set oWord = CreateObject("Word.Application")
    Pfad = "C:\test.dot"
       
    With oWord
        .wordbasic.disableautomacros 1
        .Documents.Add Template:=Pfad, NewTemplate:=False
        .Visible = True
        .Activate
    End With
End Sub


Meine Frage ist: Wie kann ich meine Variable aus Excel nach Word „bekommen“?
Ich würde gerne aus meiner Tabelle einen Wert in eine UserForm von meiner Vorlage .dot übernehmen.

Ist das möglich?

Grüße

Stefan
Case
Coder


Verfasst am:
18. Mai 2009, 10:10
Rufname: Case
Wohnort: Schwäbisch Hall

AW: Wert von Excel in Word übernehmen - AW: Wert von Excel in Word übernehmen

Nach oben
       Version: Office XP (2002)

Hallo, Razz

folgender Code schreibt den Wert aus Tabellenblatt "Sheet1", Zelle "A1" in die "TextBox1" der "UserForm1" in der Templatedatei "C:\Temp\Doc1.dotm" - also entsprechend anpassen: Wink

Code:
Option Explicit

Sub Test()
    Dim strPath As String
    Dim objTB As Object
    Dim oWord As Object
    On Error GoTo Fin
    Set oWord = CreateObject("Word.Application")
    strPath = "C:\Temp\Doc1.dotm"
       
    With oWord
        .WordBasic.DisableAutoMacros 1
        .Documents.Add Template:=strPath, NewTemplate:=False
        .Visible = True
        '.Activate
        Set objTB = .Documents.Application.Templates.Item(strPath). _
            VBProject.VBComponents("UserForm1").Designer.Controls("TextBox1")
        objTB.Text = ThisWorkbook.Worksheets("Sheet1").Range("A1")
    End With
Fin:
    Set objTB = Nothing
    Set oWord = Nothing
End Sub


Servus
Case

_________________
Servus
Case
stefanbla81
Gast


Verfasst am:
18. Mai 2009, 11:18
Rufname:


AW: Wert von Excel in Word übernehmen - AW: Wert von Excel in Word übernehmen

Nach oben
       Version: Office XP (2002)

Danke, werd ich nachher testen!!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Bekomme Fehler #Wert nicht weg 9 Cerberus 1225 21. Feb 2005, 23:46
Cerberus Bekomme Fehler #Wert nicht weg
Keine neuen Beiträge Excel Formeln: vergleich mit Wert vor 10min 2 Norbert_B 585 11. Feb 2005, 15:19
Norbert_B vergleich mit Wert vor 10min
Keine neuen Beiträge Excel Formeln: VERGLEICH() nächstgrösseren Wert finden??? 2 xyzdef 1116 07. Feb 2005, 22:58
xyzdef VERGLEICH() nächstgrösseren Wert finden???
Keine neuen Beiträge Excel Formeln: Wert nur einmal anzeigen 3 User001 21427 04. Feb 2005, 15:18
rainberg Wert nur einmal anzeigen
Keine neuen Beiträge Excel Formeln: Farbe einer Zelle bei bestimmten Wert automatisch verändern 4 Jatze 3564 03. Feb 2005, 23:48
Jatze Farbe einer Zelle bei bestimmten Wert automatisch verändern
Keine neuen Beiträge Excel Formeln: Gefundenen Wert aus Spalte A in D1... 3 Gundel 1328 27. Jan 2005, 00:09
Gast Gefundenen Wert aus Spalte A in D1...
Keine neuen Beiträge Excel Formeln: Verknüpfung auf bestimme Spalte, den letzten Wert zurückgebe 4 Thiemo 1531 17. Jan 2005, 19:32
KARL Verknüpfung auf bestimme Spalte, den letzten Wert zurückgebe
Keine neuen Beiträge Excel Formeln: Statischer Wert innerhalb einer WENN Formel 2 Viviane 2832 17. Jan 2005, 13:19
Viviane Statischer Wert innerhalb einer WENN Formel
Keine neuen Beiträge Excel Formeln: Wert einmal vergeben 3 Jony123 1117 13. Jan 2005, 11:47
ae Wert einmal vergeben
Keine neuen Beiträge Excel Formeln: größten wert auslesen und woanders um 50 erhöhen 1 GE 1220 20. Dez 2004, 12:51
icke größten wert auslesen und woanders um 50 erhöhen
Keine neuen Beiträge Excel Formeln: Formel mit "festem" Wert kopieren 2 sebbi 1937 08. Dez 2004, 20:36
sebbi Formel mit "festem" Wert kopieren
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Bestimmten Zellen einen Wert zuteilen. 1 tomimmo 2544 03. Dez 2004, 20:35
ae Bestimmten Zellen einen Wert zuteilen.
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Dreamweaver Forum