Hallo Leute,
Wie lässt sich der Dateiname des aktuellen Worksheets Ohne Endung in eine Zelle Schreiben?
Habe mehrere Ansätze versucht, aber es scheitert immer an eine Kleinigkeit:
Es muss doch eine ganz simple Lösung geben, aber ich komme gerade nicht drauf.... Jemand eine alternative Idee?
---------------------------
Mölichkeit1: (...macht irgendwie garnix)
With ActiveWorkbook
NameOhneXLSM = Left(.Name, Len(.Name) - 5)
Debug.Print ActiveSheet.Range("A10").Value
End With
--------------------------
Möglichkeit2: (Error)
.Cells(1, 1).Formula = TEIL(ZELLE("Dateiname";A1);FINDEN("[";ZELLE("Dateiname";A1))+1;FINDEN("]";ZELLE("Dateiname";A1))-FINDEN("[";ZELLE("Dateiname";A1))-6)
|