Wollen Sie mit #VBA Daten in der #Zwischenablage bereitstellen? Use Case: Sie wollen etwas markieren, mit VBA „aufbereiten“ und das Ergebnis dann einfach zur Verfügung haben, um es an beliebiger anderer Stelle dann Einfügen zu können.
Das geht so:
Sub toClipboard()
Dim myCat As Variant
Dim objClip As dataObject
myCat = Selection & " der Text muss hintendran"
Set objClip = New dataObject
objClip.SetText myCat
objClip.PutInClipboard
End
Wichtig: damit Sie den Objekttyp dataObject überhaupt haben, müssen Sie mit Extras > Verweise die Bibliothek Microsoft Forms 2.0 Object Library einbinden
katharinakanns
