Untitled

Sub CopyTextToClipboard()
    Dim DataObj As Object
    Set DataObj = CreateObject("MSForms.DataObject")
    
    ' Der Text, den Sie in die Zwischenablage kopieren möchten
    Dim textToCopy As String
    textToCopy = "Dies ist der Text, der kopiert wird."
    
    ' Text in die Zwischenablage kopieren
    DataObj.SetText textToCopy
    DataObj.PutInClipboard
    
    ' Benachrichtigung
    MsgBox "Text wurde in die Zwischenablage kopiert!"
End Sub