Doppelklick Zwischenablage

Guten Tag,
ich benötige mal etwas Hilfe bei einer - hoffentlich einfachen - Sache.
In einer Zelle berechne ich mir den Zellinhalt. Als Ergebnis steht dort dann ein Satz mit Werten, die ich aus anderen Zellen zusammensetze.
Nun möchte ich diesen Satz in der Zelle per Doppelklick in die Zwischenablage kopieren und in Teams einfach in einen Chat einfügen.
Folgendes Script habe ich mit Hilfe der Googlesuche auf meine Bedürfnisse angepasst:


Option Explicit
Public Text As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim oData As New DataObject
'Text ohne Formatierung in die Zwischenablage kopieren
Const C_CLASS_MSFORMS_DATAOBJECT As String = "new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"
Dim o As Object              ' LateBinding (nur nï¿½tig wenn keine Userform vorhanden ist)
Set o = CreateObject(C_CLASS_MSFORMS_DATAOBJECT) ' LateBinding
Text = Target.Resize(1, 1).Text
Call o.SetText(Text, 1)
Call o.PutInClipboard
Set o = Nothing
MsgBox Text 'Kontrolle Zwischenablage
End Sub

Beim Einfügen der Zwischenablage wird der Inhalt jedoch fast immer nur als ? eingefügt (auch in Notepad). Ab und zu funktioniert es auch mal komplett. Ich habe jedoch keinen Lösungsansatz für mein Problem. Vielleicht kann mir jemand helfen?
VG Andy

Alternativ:
mit Power Shell den Inhalt vom Clipboard auf dem Text reduzieren:
Set-Clipboard $(Get-Clipboard -TextFormatType Text)
im Powershell ISE:
_ kopieren in Excel
_ mit Alt+Tab auf Powershell ISE, wo dieser Code bereit steht
_ F5 drücken (Run Script)
_ mit Alt-Tab in der Ziel-Anwendung wechseln
_ Strg+C
oder als Commandline (Win+R) oder in einem Batch-Datei auf dem Desktop, die mit einer Tastenkombi ausführbar wird (Die Winsecurity mögen das nicht):
powershell Set-Clipboard $(Get-Clipboard -TextFormatType Text)
es geht sogar über VBA:


Sub Makro1()
' Tastenkombination: Strg+b
Shell "powershell.exe Set-Clipboard $(Get-Clipboard -TextFormatType Text)", vbNormalFocus
End Sub

Da diese Makro den Kurzel Strg+b zugeordnet ist, muss man Strg+c, Strg+b (beachten, dass die Aktion ein gewisse Zeit braucht, daher NormalFocus), Strg+v
VG
Yal

Forumthread: Doppelklick Zwischenablage

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Doppelklick für die Zwischenablage in Excel nutzen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)