ich möchte gern den Inhalt einer Zelle genauer den Text aus einer Zelle kopieren und dann beim Erzeugen der PDF Datei als Namen vergeben. Mit dem normalen Copy Befehl funktioniert das nicht.
Kann mir jemand einen Tipp geben? Danke!
Sub Text2ClipBoard()
Dim ClipAbLage As DataObject 'benötigt Verweis zur Microsoft Forms 2.0 Object Library
Set ClipAbLage = New DataObject
ClipAbLage.SetText Range("A1").Text
ClipAbLage.PutInClipboard
End Sub