Zeilenumbrüche mit VBA
22.11.2025 14:43:20
Ingo Siemon
Ich habe hier ein Anliegen, an dem ich echt verzweifle.
Und darum möchte ich um Eure Hilfe bitten.
Ich möchte genau folgendes machen.
* Ein Excel VBA-Makro soll einen Text mit 6 Zeilen in die Windows Zwischenablage schreiben.
Diesen Text möchte ich dann später "händisch" per STRG-V an anderer Stelle einfügen.
Dabei geht es mir um die Zeilenumbrüche.
Es sollen die Zeilenumbrüche sein, die man ja auf der per Tatstatur mit Shift+Enter bekommt.
Per VBA müssten das doch dann vbLf sein.
Darum schaut mein VBA-Code aktuell wie folgt aus:
Sub Zwischenablage()
Dim Zwischenablage As DataObject
Dim sTxt As String
Dim iRow As Long
Set Zwischenablage = New DataObject
iRow = ActiveCell.Row
Zwischenablage.SetText "Zeil 1" & vbLf & _
"Zeile 2" & vbLf & _
"Zeile 3" & vbLf & _
"Zeile 4" & vbLf & _
"Zeile 5" & vbLf & _
"Zeile 6"
Zwischenablage.PutInClipboard
End SubIrgendwas klappt da aber nicht.
Wenn ich den erzeugten Text in ein Word-Dokument mit STRG+V einfüge, werde mir dort die Zeichen für Paragraph Mark und nicht für Line Break angezeigt.
Ist es irgendwie zuverlässig per Excel VBA machbar, dass der erzeugte Text tatsächlich diese Line Break enthält?
Ich habe hier auch mal eine Beispieldatei hochgeladen, damit man es testen kann.
Gruß
Ingo
Anzeige