Hallo liebe Gemeinde,
Ich habe eine Variable EQNR die ich gerne in die Zwischenablage einfügen möchte um sie mit STR+V woanders (Chrome) eizufügen.
Ich habe dazu bereits einiges gelesen, bekomme es aber einfach nicht hin.

Unter Extras=>Verweise habe ich "Microsoft Forms 2.0 Object Library" aktiviert. (Haken gesetzt)

Dim EQNR As String
'Dim ClipAbLage As DataObject '(War auch ein Versuch)
Dim ClipAbLage As Object

'Hier setze ich die EQNR in die Variable EQNR
Workbooks(Zieltabelle).Worksheets("Tabelle2").Activate
Set myCell = Application.InputBox(prompt:="Select a cell", Default:=ActiveCell.Address, Type:=8) ' Default:=Bereich,EQNR = myCell.Value

'Und hier Versuche ich es in die Zwischenablage zu schieben:

 Set ClipAbLage = New DataObject
    DoEvents    
   ClipAbLage.SetText (EQNR)
   ClipAbLage.PutInClipboard
 
 '2. Versuch:
   With ClipAbLage
                .SetText EQNR
                .PutInClipboard
    End With

In beiden Versuchen habe ich es nicht geschafft die 8 Stellige Nummer in die Zwischenablage zu setzen.
Die EQNR verwende ich an anderer Stelle intern im Programm und die funktioniert.
Nur in die Zwischenablage bekomme ich sie nicht.
Ich hatte Es auch schon einmal, das es Funktioniert hatte, aber beim nächsten mal nicht mehr.
Ich habe dazwischen meines Wissens nichts verändert.

Auch anderes habe ich schon Erfolglos versucht.
Ich setze es einfach mal unten an, damit man sieht das ich es zumindest versucht habe.

    Dim textOnClipboard As String
    textOnClipboard = My.Computer.Clipboard.GetText()
'    My.Computer.Clipboard.SetText ("This is a test string.")
'    My.Computer.Clipboard.SetText (EQNR)
 

'Set ClipAbLage = CreateObject("HtmlFile")
'
''ClipAbLage.ParentWindow.ClipboardData.SetData "text", EQNR
'ClipAbLage.ParentWindow.ClipboardData.SetData "String", EQNR


Es wäre toll wenn ihr mir da helfen könntet.
Danke
Bernd