Hallo liebe Experten,
ich habe da eine Excel 2003 Liste mit vielen Kommentaren, deren Text ich bei markierter Zelle in die Zwischenablage mittels folgendem Makro kopiere:
Sub CopyPhraseToClipboard()
Dim oData As New DataObject
On Error Resume Next
With oData
.SetText CStr(Cells(ActiveCell.Row, ActiveCell.Column).Comment.Text.)
.PutInClipboard
End With
End Sub
Leider gehen dabei jedoch die Zeilenumbrüche verloren, die ich jedoch zwingend brauche.
Ich wäre sehr dankbar für eine Hilfe von Euch.
CStr-Funktion wandelt von NUM auf STRING
Probiere folgende Lösung:
Sub CopyPhraseToClipboard()
Dim oData As DataObject
On Error Resume Next
Set oData = New DataObject
oData.SetText (Cells(ActiveCell.Row, ActiveCell.Column).Comment.Text)
oData.PutInClipboard
End Sub
Dabei wird jedoch nur der Inhalt, nicht jedoch das Objekt selbst in die Zwischenablage kopiert.
lg erwin
Hallo Erwin,
vielen Dank für Deine Hilfe. Leider hab ich damit
das selbe Ergebnis wie zuvor. Es ist schon seltsam,
wenn man die Texte manuell markiert und kopiert,
werden die Umbrüche mitkopiert …
dennoch, danke nochmal
Karl