Mir würde es erst mal schon reichen, den Dateinamen als MsgBox angezeigt zu bekommen.
ich hab mal ein bisschen mit dem folgenden rumprobiert... klappt nur leider nicht... ;-(
Dim Name As String
Set Name = ActiveWorkbook.Name
MsgBox Name
Sub XX()
Dim MyName As String
MyName = ActiveWorkbook.FullName
MsgBox MyName
End Sub
oder Sub YY()
Dim MyName As String
MyName = ActiveWorkbook.Name
MsgBox MyName
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen