Wie extrahiert man schnell den Dateinamen aus dem vollständigen Pfad in Excel?
Angenommen, Sie haben ein Arbeitsblatt mit einer Liste von Dateipfaden. Nun möchten Sie aus jedem Pfad nur den Dateinamen extrahieren – also den Teil rechts vom letzten umgekehrten Schrägstrich – wie in den folgenden Screenshots gezeigt. Gibt es schnelle Tricks, um diese Aufgabe zu erledigen?
Dateinamen aus vollständigem Pfad mit Formel in Excel extrahieren
Dateinamen aus vollständigem Pfad mit benutzerdefinierter Funktion extrahieren
Dateinamen aus vollständigem Pfad mit VBA-Code extrahieren
Dateinamen aus vollständigem Pfad mit Formel in Excel extrahieren
In Excel können Sie mit der folgenden Formel schnell nur den Dateinamen aus dem vollständigen Pfad extrahieren.
Wählen Sie eine leere Zelle aus, geben Sie die folgende Formel ein und drücken Sie anschließend die Eingabetaste.
=MID(A1,FIND(„*",SUBSTITUTE(A1,"\",„*",LEN(A1)-LEN(SUBSTITUTE(A1,"\",„"))))+1,LEN(A1))
Hinweise: A1 ist die Zelle, aus der Sie den Dateinamen extrahieren möchten. Drücken Sie die Eingabetaste, und ziehen Sie anschließend den Ausfüllknebel auf den gewünschten Bereich – danach wird der Dateiname aus jeder Zelle extrahiert.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Dateinamen aus vollständigem Pfad mit benutzerdefinierter Funktion extrahieren
Mit der folgenden benutzerdefinierten Funktion erhalten Sie den Dateinamen einfach und schnell.
1. Drücken Sie gleichzeitig die Tasten ALT + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.
Function FunctionGetFileName(FullPath As String) As String
'Update 20140210
Dim splitList As Variant
splitList = VBA.Split(FullPath, "\")
FunctionGetFileName = splitList(UBound(splitList, 1))
End Function
3. Drücken Sie die Tasten Alt + Q, um das Fenster Microsoft Visual Basic für Applikationen zu schließen und zum Arbeitsblatt zurückzukehren. Geben Sie in eine leere Zelle, z. B. B1, die folgende Formel ein und drücken Sie die Eingabetaste.
=FunctionGetFileName(A1)
Wählen Sie dann erneut die Zelle B1 aus, ziehen Sie den Ausfüllknebel auf den Bereich, auf den Sie diese Formel anwenden möchten, und alle Dateinamen wurden wie im folgenden Ergebnis gezeigt aus den vollständigen Pfaden extrahiert:
Dateinamen aus vollständigem Pfad mit VBA-Code extrahieren
Neben der benutzerdefinierten Funktion können Sie auch mithilfe eines VBA-Codes die Dateinamen extrahieren. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten ALT + F11gedrückt, um das Fenster Microsoft Visual Basic für Applikationenzu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.
Sub GetFileName()
'Update 20140210
Dim Rng As Range
Dim WorkRng As Range
Dim splitList As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
splitList = VBA.Split(Rng.Value, "\")
Rng.Value = splitList(UBound(splitList, 1))
Next
End Sub
3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen, und wählen Sie den Bereich aus, aus dem Sie den Dateinamen extrahieren möchten (siehe Screenshot):
4. Klicken Sie dann auf OK, und die Dateinamen wurden wie folgt aus der Auswahl extrahiert:
Hinweis: Bei Verwendung dieses VBA-Codes werden Ihre Originaldaten überschrieben. Erstellen Sie daher unbedingt vorher eine Sicherungskopie.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins