---

Guten Tag zusammen,

ich möchte über ein Unterprogramm einen ASCII-Wert in den Zwischenspeicher übergeben.
Habe dazu bei CODESTACK einen Code entdeckt,
aber leider übergibt dieser keinen ASCII-Code,
sondern so etwas : ￿￿

Vielleicht kann mir da jemand bitte weiter helfen ?!

Sub SetTextToClipboard(text As String)   
    Dim dataObject As Object
    Set dataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    dataObject.SetText text
    dataObject.PutInClipboard
    Set dataObject = Nothing   
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Du musst den text erst in ascii umwandeln, bevor du ihn in die zwischenablage schiebst:

ChatGPT schlägt folgendes vor:

Sub SetAsciiToClipboard(text As String)
    Dim dataObject As Object
    Dim asciiString As String
    Dim i As Integer

    ' Konvertierung jedes Zeichens in den ASCII-Wert und Zusammenfügung zu einem String
    For i = 1 To Len(text)
        asciiString = asciiString & Asc(Mid(text, i, 1)) & " "
    Next i

    ' Erstellen eines neuen Clipboard-Objekts
    Set dataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
    ' Setzen des ASCII-Strings in das Clipboard-Objekt
    dataObject.SetText asciiString
    dataObject.PutInClipboard

    ' Objekt freigeben
    Set dataObject = Nothing
End Sub

------------------
Gruß,
Florian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Florian,

den von mir beschriebene Effekt gibt es NICHT,
wenn in Windows alle Datei-Explorer geschlossen sind !

Bei dem Vorschlag von ChatGPT wird unabhängig, ob die Explorer auf sind oder nicht, folgendes ausgegeben :
77 52 51 50 55 52 95 55 55 55 95 65 32 110 110

Der dazugehörige Text sieht ABER so aus :
M43274_777_A nn

D.h. es wird in ASCII-Code umgewandelt, aber nicht in die Schriftzeichen ... ?

[Diese Nachricht wurde von BranscheidGmbh am 05. Dez. 2023 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe mal weiter recherchiert,
und dabei folgendes entdeckt.

Und dies funktioniert auch bei im Hintergrund offenem Datei-Explorer 

' Example text
Dim strText As String
' Set the text
strText = "This is a test"
' Copy the text to the clipboard
Call SetClipboardText(strText)

' Quelle : https://www.coragi.com/tips-and-tricks/excel/excel-vba-copy-and-paste-text-to-from-the-clipboard/
' Copy Text To Clipboard

Public Sub SetClipboardText(ByVal strText As String)

    ' Instance
    Dim objDataObject As Object

    ' Allocate instance of Microsoft Forms DataObject
    Set objDataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

    ' Set the Properties
    With objDataObject

        ' Add text to the DataObject
        .SetText strText

        ' Copy all data in the DataObject to the Clipboard (internally calling OleSetClipboard)
        .PutInClipboard

    End With

    ' Free memory
    Set objDataObject = Nothing

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP