Dateiname und -endung trennen
Volker
Anzeige
Left$(Dateiname, InStrRev(Dateiname, ".") - 1)
Um die Dateiendung von einem Dateinamen in Excel zu trennen, kannst du folgende Methoden verwenden:
VBA Code:
Sub DateinameUndEndungTrennen()
Dim dateiname As String
dateiname = ActiveWorkbook.Name
Dim endung As String
endung = Mid(dateiname, InStrRev(dateiname, ".") + 1)
Dim dateinameOhneEndung As String
dateinameOhneEndung = Left$(dateiname, InStrRev(dateiname, ".") - 1)
MsgBox "Dateiname: " & dateinameOhneEndung & vbCrLf & "Endung: " & endung
End SubExcel Formel:
=LINKS(A1;SUCHEN(".";A1)-1)=TEIL(A1;SUCHEN(".";A1)+1;9)A1 durch die Zelle, die den Dateinamen enthält.Fehler: #WERT!
Ursachen sind oft, dass kein Punkt im Dateinamen vorhanden ist. Stelle sicher, dass der Dateiname ein gültiges Format hat.
Fehler: Unbekannte Funktion
Wenn eine Funktion nicht gefunden wird, überprüfe, ob du die richtige Excel-Version verwendest. Einige Funktionen sind nur in neueren Versionen verfügbar.
Split-Funktion in VBA: Du kannst auch die Split-Funktion verwenden:
Dim parts() As String
parts = Split(dateiname, ".")
Dim dateinameOhneEndung As String
dateinameOhneEndung = parts(0) ' Nimmt den ersten Teil vor dem PunktVerwendung von Text-zu-Spalten:
Beispiel für einen Dateinamen in A1: bericht.xlsx
=LINKS(A1;SUCHEN(".";A1)-1) ' Ergebnis: berichtBeispiel für die Endung:
=TEIL(A1;SUCHEN(".";A1)+1;9) ' Ergebnis: xlsx1. Wie kann ich die Endung einer Datei in Excel ändern?
Du kannst die Endung einer Datei nicht direkt in Excel ändern, aber du kannst die Datei über den Windows Explorer umbenennen.
2. Was ist der Unterschied zwischen .xls und .xlsx?
.xls ist das alte Excel-Format, während .xlsx das neuere Format ist, das mehr Funktionen unterstützt und effizienter mit Daten umgeht.