|
Hallo Bernd,
deklariere deine Varible so: Dim ClipAbLage As New MSForms.DataObject
Spätestens hier wirst du feststellen, dass die erforderliche Bibliothek nicht aktiviert ist.
Um diese zu aktivieren erzeuge mal einfach eine Userform und entferne diese dann wieder.
Dann bietet die IntelliSense vom VBA Editor, wenn du nach MSForms den Punkt setzt dies DataObject als Auswahl an.
Damit wird auch der Wert übergeben.
Beispiel:
Sub StringInClipboard()
Dim ClipAbLage As New MSForms.DataObject, EQNR$: EQNR = "1,2,3,4,5,"
ClipAbLage.SetText EQNR
ClipAbLage.PutInClipboard
End Sub
Gruß Uwe
|