Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Zelle in Zwischablage kopieren ohne jegliche Formatierung
#1
Sad 
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.
Antwortento top
#2
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
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste