Hallo zusammen,
ich möchte von ein Excel jeden ZellenWert der <>"" in der Spalte A 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
|