Ich suche eine Funktion bzw. Möglichkeit, die den Namen der Datei z.B. in Zelle B2 schreibt.
Es soll nur der Dateiname sein, nicht der komplette Pfad wie bei der Funktion Zelle("dateiname").
Vorab Danke!
Michael
Vorab Danke!
Michael
versuch's mal mit dieser selbsterstellten Mini-Funktion:
Function ThisFileName()
ThisFileName = ActiveWorkbook.Name
End Function
Aufruf: ThisFileName() in jeder beliebigen Zelle.
Gruß,
Helmut.
Danke für den Tip!
Wie bekomme ich aber die Endung ".xls" weg ?
Es soll nur der Dateiname dargestellt werden.
Michael
ergänze Die Zeile wie folgt
ThisFileName = left(ActiveWorkbook.Name,len(ActiveWorkbook.Name)-4)
Gruss OttoH
Gruß
Michael
Gruss OttoH
lies mit den Textfunktionen den Dateinamen aus der Funktion ZELLE("Dateiname";A1) (A1 = irgendeine Zelle in der Datei) - also:
=TEIL(ZELLE("dateiname";A1);FINDEN("[";ZELLE("dateiname";A1))+1;FINDEN("]";(ZELLE("dateiname";A1)))-FINDEN("[";(ZELLE("dateiname";A1)))-1)
Da der Dateiname immer in [] steht, ist das zuverlässig machbar (allerdings nur mit bereits gespeicherten Dateien).
Dann gibt's auch keine Rückfragen wegen Makros beim Öffnen der Datei ... ;-)
Gruß,
Helmut.