hab wunder gedacht wie einfach, von wegen.
Wer kann mir sagen wie der Code aussehen muss wenn ich den Inhalt aus UF1 Textbox1 in die Zwischenablage kopieren will.
Danke im Voraus !!!
Gruß
Bernd
Sub kopieren()
Dim objClip As dataobject
Set objClip = New dataobject
strTmp = Cells(1, 1).Value
objClip.SetText strTmp
objClip.PutInClipboard
End Sub