Excel 8.0: Dateinamen einfügen

Excel 8.0: Dateinamen einfügen

Ein Makro trägt den Dateinamen an der gewünschten Position in die Tabelle ein.

Oft ist es wünschenswert, den Namen der aktuellen Arbeitsmappe in eine Tabelle zu integrieren. Das folgende VBA-Makro nimmt Ihnen diese Arbeit ab. Als zusätzlichen Komfort läßt es Sie vorher die Zelle bestimmen, in welcher der Name erscheinen soll.

Um das Makro anzulegen, benutzen Sie den Befehl Extras/Makro/Visual Basic-Editor. Im Editor benutzen Sie den Befehl Ansicht/Code, um das Eingabefenster zu öffnen. Hier tragen Sie das folgende Listing ein:

Sub PositionName()
value1 = InputBox("Geben Sie die Koordinaten der Zelle für die Position des Dateinamens ein:")
With ActiveWorkbook
Range(value1).Value = .Name
End With
End Sub

Speichern Sie das Makro ab und schließen den VBA-Editor.

Über den Dialog Exras/Makro/Makros führen Sie das Makro aus, das zunächst einen Abfragedialog anzeigt. Geben Sie hier die Koordinaten der gewünschten Zelle ein, beispielsweise D9.

Nach Bestätigung mit OK trägt Excel den aktuellen Dateinamen in diese Zelle ein. Soll hier zusätzlich der komplette Dateipfad erscheinen, ersetzen Sie im Listing .Value = .Name durch .Value = .FullName.

Erschienen in: PC Magazin, Ausgabe 02/99