Function Dateiname_ohne_Endung() As String
Dim strDateiname As String
Dim intPosition As Integer
strDateiname = ActiveWorkbook.Name
intPosition = InStr(strDateiname, ".")
If intPosition <> 0 Then strDateiname = Left(strDateiname, intPosition - 1)
Dateiname_ohne_Endung = strDateiname
End Function
Um den Dateinamen der aktuellen Excel-Datei ohne die Endung .xls in eine Variable zu speichern, kannst du die folgende VBA-Funktion verwenden:
ALT + F11, um den VBA-Editor zu starten.Einfügen > Modul, um ein neues Modul zu erstellen.Function Dateiname_ohne_Endung() As String
Dim strDateiname As String
Dim intPosition As Integer
strDateiname = ActiveWorkbook.Name
intPosition = InStr(strDateiname, ".")
If intPosition <> 0 Then strDateiname = Left(strDateiname, intPosition - 1)
Dateiname_ohne_Endung = strDateiname
End FunctionFehler: Funktion gibt einen Fehler zurück.
Fehler: Der Name wird nicht korrekt angezeigt.
.xls).Es gibt eine einfache Excel-Formel, um den Dateinamen ohne Endung zu erhalten:
=LINKS(ARBEITSBLATT.NAME;LÄNGE(ARBEITSBLATT.NAME)-4)Diese Formel funktioniert allerdings nur, wenn der Dateiname genau vier Zeichen für die Endung hat, also bei .xls.
Für Word-Dokumente kannst du den Dateinamen ohne Endung mit folgendem Feld einfügen:
{ FILENAME \* MERGEFORMAT }Um die Endung zu entfernen, musst du das Feld manuell anpassen.
Angenommen, du hast eine Excel-Datei mit dem Namen Finanzen_2023.xls. Wenn du die oben genannte VBA-Funktion verwendest, gibt sie Finanzen_2023 zurück.
Ein weiteres Beispiel: Wenn du den Dateinamen in einer Zelle speichern möchtest, kannst du die Funktion so aufrufen:
=Dateiname_ohne_Endung()Das Ergebnis wird in der Zelle angezeigt.
ActiveSheet.PageSetup.CenterHeader = Dateiname_ohne_Endung()Dateiname_ohne_Endung auch in Kombination mit anderen Funktionen, um beispielsweise den Dateinamen in einer Zelle ohne Pfad anzuzeigen.1. Wie kann ich den Dateinamen in eine Zelle ohne Endung einfügen?
Du kannst einfach die Funktion Dateiname_ohne_Endung() in eine Zelle eingeben, um das Ergebnis dort anzuzeigen.
2. Funktioniert das auch in Excel Online?
Nein, die VBA-Funktion ist nur in der Desktop-Version von Excel verfügbar. In Excel Online sind VBA-Makros nicht unterstützt.
3. Wie kann ich den Dateinamen in Word ohne Endung einfügen?
Du kannst das Feld FILENAME verwenden und manuell die Endung entfernen, da Word keine direkte Funktion für diesen Zweck bietet.
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