Code Snippet "VBA Excel"

Dateiname einer Arbeitsmappe ausgeben

Gibt den Dateinamen inklusive Endung, aber ohne Pfad zurück von der Datei, in der ein Makro läuft

'Gibt den Dateinamen einer Arbeitsmappe inklusive Endung, aber ohne Pfad zurück von der Datei, in der ein Makro läuft
'Im Gegensatz zu ActiveWorkbook.Name muss Arbeitsblatt nicht aktiviert sein
'Funktioniert auch, wenn Datei mit Makro umbenannt wird
Sub dateinamen_makro()
  Debug.Print "Workbook Macro: " & ThisWorkbook.Name
  Workbooks.Add
  Debug.Print "ActiveWorkbook: " & ActiveWorkbook.Name
  Debug.Print "Workbook Macro: " & ThisWorkbook.Name
End Sub