ich nutze in Excel folgenden VBA-Code um einen Kommentar einer einzelnen markierten Zelle in die Zwischenablage zu kopieren und diesen in einem anderen Programm (z.B. Word) wieder als Text einzufügen:
Option Explicit
Sub Kommentar_in_Zwischenablage()
Dim oData As DataObject
Set oData = New DataObject
With ActiveCell
If Not .Comment Is Nothing Then
oData.SetText .Comment.Text
oData.PutInClipboard
End If
End With
Set oData = Nothing
End Sub
Das klappt soweit auch ganz gut, ABER:
Sobald ich am Rechner häufiger die Zwischenablage in anderen Fälle nutze und dann den o.g. Code nutze, werden mir jedes Mal nur zwei Fragezeichen eingefügt, also nicht der komplette Kommentar. Starte ich den Rechner neu, funktioniert es wieder.
Ich kenne mich mit dem o.g. Code leider nicht aus. Kann man das Problem irgendwie lösen, so das der Code dauerhaft funktioniert?
VG
Frank