Dateiname in Zwischenablage kopieren

Liebe Excelgemeinde,
ich scheitere schon wieder an den banalsten Dingen!

Ich versuche in einem Makro den Dateinamen in eine Variable zu übergeben und ihn später (nachdem ich die alte Datei teilweise in eine neue Arbeitsmappe kopiert habe) in die Zwischenablage zu kopieren.

Dies ist mein bisheriger Versuch.

Sub Dateiname()

Dateiname = Application.ActiveWorkbook.Name

Dateiname.putinclipboard

End Sub

Im Grunde genommen gescheitere ich nur daran den Dateinamen an die Zwischenablage zu kopieren.

Vielen Dank schonmal für alle Antworten!

LG ingo

Im Grunde genommen gescheitere ich nur daran den Dateinamen an
die Zwischenablage zu kopieren.

Hi Ingo,

Sub tt()
Dim MyData As New DataObject
MyData.SetText ActiveWorkbook.Name
MyData.PutInClipboard
End Sub

Gruß
Reinhard