mit nachstehendem Code werden Daten in die Zwischenablage kopiert, damit ich diese dann in WORD eingefügt werden. Wie müßte der Code verändert werden, damit der Zeilenumbruch funktioniert bzw. die Zellen C6:C26 zellenweise in WORD eingefügt werden. Gäbe es noch die Möglichkeit, z.B. zu Beginn eines jeden Textes noch irgendwie ein Sonderzeichen/Aufzählungszeichen -z.B. dicker Punkt o.ä.- voranzusetzen? - Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße - Wolfgang
Option Explicit
Sub TextClipBoard()
Dim ClipAbLage As DataObject
Dim MyText As String
Set ClipAbLage = New DataObject
For i = 6 To 26
MyText = MyText & " " & Cells(i, 3)
ClipAbLage.SetText MyText
ClipAbLage.PutInClipboard
Next
MsgBox "Die Daten befinden sich in der Zwischenablage", vbInformation
End Sub