Clever-Excel-Forum

Hallo zusammen,

ich möchte eine Excel Zelle ohne jegliche Formate per Makro in die Zwischenablage kopieren.
Achtung, ohne Formate heißt auch wirklich ohne Formate.
Beim einfachen kopieren werden immer die Zellränder mitkopiert.
Dies sieht man nur wenn man es in ein HTML File eingibt.

Gesamter Verlauf auf Gutefrage.net


Hier wurde bereits versucht mir weiterzuhelfen.
Folgender Code wurde zusammengestellt:

Private Sub CommandButton3_Click()
Dim oData As New DataObject
Dim strKopieren As String

Range(ActiveCell, ActiveCell.Offset(2, 0)) = "ok"

strKopieren = ActiveCell.Offset(0, -1).Value & _
vbCrLf & ActiveCell.Offset(1, -1).Value & vbCrLf & _
ActiveCell.Offset(2, -1).Value

With oData
  .SetText strKopieren
  .PutInClipboard
End With

End Sub


Dies klappte einmal. Danach klappt es aber nicht mehr.
Der Helfer meint jedoch dass es bei ihm immer funktioniert.
Wir haben es jedoch bei uns auf 3 verschiedenen PCs mit MS Office 2019 Standard oder Professional Plus erprobt, auf allen funktioniert es nicht.

Es wird immer folgendes eingefügt: " ￿￿ " oder als "??" 

In den folgenden Bildern kannst du das Resultat bei mir sehen:
Bild 1

Bild 2



Hier kannst du auch gerne meine Testdatei runterladen:
Testdatei


Für Hilfe wäre ich sehr dankbar.

Hallöchen,

Excel hat da ein Problem mit dem Text. Sicherer, aber vom Code her deutlich aufwändiger, ist die Übernahme per API.
Schaue z.B. mal dort:
DataObject__PutInClipboard_funktioniert_nicht