Thema Datum  Von Nutzer Rating
Antwort
Rot Variable in Zwischenablage funktioniert nicht
26.06.2024 14:51:42 Bernd
NotSolved
26.06.2024 16:35:06 ralf_b
NotSolved
26.06.2024 16:59:05 Bernd
NotSolved
26.06.2024 17:51:20 ralf_b
NotSolved
27.06.2024 09:49:09 Bernd
NotSolved
27.06.2024 12:45:41 Gast12307
NotSolved
27.06.2024 13:35:21 ralf_b
NotSolved
27.06.2024 13:35:51 Bernd
NotSolved
27.06.2024 13:53:39 Gast16397
NotSolved
27.06.2024 14:45:30 Bernd
NotSolved
27.06.2024 14:57:06 Gast65894
NotSolved
27.06.2024 15:01:21 Gast11406
NotSolved
27.06.2024 15:04:15 Bernd
NotSolved
27.06.2024 15:14:17 Gast25925
NotSolved
27.06.2024 15:30:45 Bernd
NotSolved
27.06.2024 15:34:43 Gast42945
NotSolved
27.06.2024 15:39:25 Bernd
NotSolved
27.06.2024 15:44:53 Bernd
NotSolved
27.06.2024 15:55:11 Gast12642
NotSolved
27.06.2024 16:32:57 Bernd
NotSolved
28.06.2024 09:01:50 Bernd
NotSolved
27.06.2024 19:40:47 xlKing
NotSolved
28.06.2024 17:36:04 volti
NotSolved
30.06.2024 14:31:51 Bernd
Solved
30.06.2024 15:00:24 Volti
NotSolved
01.07.2024 06:59:45 Bernd
NotSolved
01.07.2024 08:50:21 volti
NotSolved
03.07.2024 17:46:44 Bernd
Solved
07.07.2024 19:21:13 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
Bernd
Datum:
26.06.2024 14:51:42
Views:
494
Rating: Antwort:
  Ja
Thema:
Variable in Zwischenablage funktioniert nicht

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Variable in Zwischenablage funktioniert nicht
26.06.2024 14:51:42 Bernd
NotSolved
26.06.2024 16:35:06 ralf_b
NotSolved
26.06.2024 16:59:05 Bernd
NotSolved
26.06.2024 17:51:20 ralf_b
NotSolved
27.06.2024 09:49:09 Bernd
NotSolved
27.06.2024 12:45:41 Gast12307
NotSolved
27.06.2024 13:35:21 ralf_b
NotSolved
27.06.2024 13:35:51 Bernd
NotSolved
27.06.2024 13:53:39 Gast16397
NotSolved
27.06.2024 14:45:30 Bernd
NotSolved
27.06.2024 14:57:06 Gast65894
NotSolved
27.06.2024 15:01:21 Gast11406
NotSolved
27.06.2024 15:04:15 Bernd
NotSolved
27.06.2024 15:14:17 Gast25925
NotSolved
27.06.2024 15:30:45 Bernd
NotSolved
27.06.2024 15:34:43 Gast42945
NotSolved
27.06.2024 15:39:25 Bernd
NotSolved
27.06.2024 15:44:53 Bernd
NotSolved
27.06.2024 15:55:11 Gast12642
NotSolved
27.06.2024 16:32:57 Bernd
NotSolved
28.06.2024 09:01:50 Bernd
NotSolved
27.06.2024 19:40:47 xlKing
NotSolved
28.06.2024 17:36:04 volti
NotSolved
30.06.2024 14:31:51 Bernd
Solved
30.06.2024 15:00:24 Volti
NotSolved
01.07.2024 06:59:45 Bernd
NotSolved
01.07.2024 08:50:21 volti
NotSolved
03.07.2024 17:46:44 Bernd
Solved
07.07.2024 19:21:13 Gast7777
NotSolved