Ich habe ein kleines Problem. Ich möchte in Excel eine Tabelle von Hand markieren
und dann per Button an ein Worddokument an eine bestimmte Textmarke kopiern.
Hier der VBA Code:
Private Sub CommandButton1_Click()
Dim appWord As Object
Dim msds As Object
Set appWord = CreateObject("Word.Application")
Set msds = appWord.Documents.Add("C:\xxx\MSDSBasis.docx")
appWord.Visible = True
msds.Activate
msds.Bookmarks("Produktname").Range.Text = Range("Produktname")
msds.Bookmarks("Inciliste").Range.Text = Range("Inciliste")
Selection.Copy
msds.Bookmarks("Tabellemsds").Selection.PasteSpecial
Set appWord = Nothing
Set msds = Nothing
End Sub
Die ersten beiden Bookmarks funktionieren ... Nur die Markierte Zellen an
einer bestimmten Stelle in Word zu pasten geht nicht ... Hat jemand
eine Idee ??
Danke
und dann per Button an ein Worddokument an eine bestimmte Textmarke kopiern.
Hier der VBA Code:
Private Sub CommandButton1_Click()
Dim appWord As Object
Dim msds As Object
Set appWord = CreateObject("Word.Application")
Set msds = appWord.Documents.Add("C:\xxx\MSDSBasis.docx")
appWord.Visible = True
msds.Activate
msds.Bookmarks("Produktname").Range.Text = Range("Produktname")
msds.Bookmarks("Inciliste").Range.Text = Range("Inciliste")
Selection.Copy
msds.Bookmarks("Tabellemsds").Selection.PasteSpecial
Set appWord = Nothing
Set msds = Nothing
End Sub
Die ersten beiden Bookmarks funktionieren ... Nur die Markierte Zellen an
einer bestimmten Stelle in Word zu pasten geht nicht ... Hat jemand
eine Idee ??
Danke