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