title image


Smiley Re: Exceldatentransfer in Worddokument
Hallo birki,

mit dem folgenden Word-Makro kannst Du aus einer Exceltabelle

Zellinhalte nach Word übertragen und dort bei Textmarken einfügen.



Es ist zumindest ein Ansatz zur Lösung Deines Problems.



Sub BetragAusExcel()

On Error GoTo FehlerSub

Dim appXL As Excel.Application

Set appXL = GetObject(, "Excel.Application")



' Im aktuellen Dokumentenpfad ist auch die Exceldatei: Werte.xls hinerlegt

appXL.Workbooks.Open (ActiveDocument.Path & "\Werte.xls")



' Hinter der Textmarke SUMME soll der Wert aus Excel eingefügt werden.

ActiveDocument.Bookmarks("SUMME").Select



' Der einzufügende Wert steht in Excel in der Zelle A1

Selection.InsertAfter appXL.ActiveSheet.Range("A1") & " "

appXL.Quit

Set appXL = Nothing

Exit Sub

FehlerSub:

If Err = 429 Then

Set appXL = GetObject("", "Excel.Application")

Else

Err.Raise Err.Number

End If

Resume Next

End Sub





Um das Ganze auf merere Textmarken und mehrere Zahlen auszubauen,

sollten die Textmarkennamen und der einzulesende Bereich in Excel

bekannt sein (ggf. kann man das in einer Schleife erledigen).



Jedenfalls viel Spaß

beim Ausprobieren



Herby













geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: