Zellenwert von Excel nach Word
09.01.2015 09:54:05
Excel
ich möchte vom Excel jeden ZellenWert in der Spalte A der nicht leer ist kopieren und nach Word einfügen. Es ist mir wichtig das ich jede Zelle einzeln und nicht als Tabelle kopiere. Mein Vorschlag der zum Teil funktioniert (aber überschreibt die vorigen Werte, was nicht erwünscht ist ...) lautet:
Private Sub CommandButton3_Click()
Dim i As Integer
Dim LastRowColA As Long
LastRowColA = Range("A65536").End(xlUp).Row
For i = 2 To LastRowColA
DoEvents
Sheets("Sheet2").Range("A" & i).Copy
AppActivate "word"
With GetObject("C:\Documents\Matchcodes.docx").Content.PasteSpecial
SendKeys "{enter}"
End With
Next
End Sub
Wer weiß eine Lösung?
Über Eure Hilfe würd ich mich freuen
mfg Dimi
Anzeige