Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pfad und Dateiname trennen

Forumthread: Pfad und Dateiname trennen

Pfad und Dateiname trennen
09.12.2004 11:10:09
Justus
Hi,
über einen FileDialog (Application.FileDialog(msoFileDialogFilePicker) slektiere ich eine Datei - funkt auch!
WIe kann ich jetzt diesen Eintrag (SelectedItems) so bearbeiten, dass ich mit vba nicht den ganzen Pfad inkl. Datei erhalte (z.B.: E:\Sonstiges\camel_26.jpg) sondern nur camel_26.jpg?
Mein bisheriger Code:


Dim dlg As FileDialog
Dim si As Variant
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
With dlg
'Darf der User mehrere Dateien auswählen Nein
.AllowMultiSelect = False
'Name des Buttons des Dialogs
.ButtonName = "Bild auswählen"
'FIlter, welche Dateien darf er auswählen
.Filters.Add "Bilder", "*.gif; *.jpg; *.jpeg; *.bmp"
.Filters.Add "Alle", "*.*"
.FilterIndex = 0
'Welches Verzeichnis soll geöffnet werden
.InitialFileName = ThisWorkbook.path
'Anzeige des Dialogs - die Dateien als Thumbnail
.InitialView = msoFileDialogViewDetails
'Titel halt
.Title = "Meine Bilderdatenbank der Züge"
End With
If dlg.Show = True Then

'Die ABfrage für den selektierten Eintrag
For Each si In dlg.SelectedItems

If MsgBox("Soll dieses Bild - " & si & " - übernommen werden?", vbYesNo + vbQuestion, "Abfrage...!") = vbYes Then
ActiveCell.Value = si
Else
MsgBox "Die Aktion wurde abgebrochen", vbCritical, "Abbruch...!"
Exit Sub
End If

Next

End If
End Sub


BTW: msoFileDialogViewThumbnail funktioerniert nicht = Laufzeitfehler '5' why?
Danke für die HIlfe
Justus
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfad und Dateiname trennen
Josef
Halo Justus!
Den Dateinamen erhälst du so:
Right(si, InStr(1, StrReverse(si), "\") - 1)
Gruß Sepp
AW: Pfad und Dateiname trennen
09.12.2004 11:23:36
Justus
super.. danke schön
Justus
AW: Pfad und Dateiname trennen
Ingolf
Hallo Justus,
einfach hinter dem letzten Backslash abschneiden, z. B. so:
Dim i As Integer
i = Len(si)
Do While Mid(si, i, 1) "\"
i = i - 1
Loop
si = Right(si, Len(si) - i)
Gruß Ingolf
Anzeige
AW: Pfad und Dateiname trennen
09.12.2004 11:24:03
Justus
prima, danke für den Tip
Justus
AW: Pfad und Dateiname trennen
UweD
Hallo
...
For Each si In dlg.SelectedItems
si = Dir(si)
If MsgBox("Soll dieses Bild - " & si & " - übernommen werden?", vbYesNo + vbQuestion, "Abfrage...!") = vbYes Then
...
AW: Pfad und Dateiname trennen
09.12.2004 11:25:55
Justus
KLasse, dachte gar nicht, dass soooo kurz auch geht ;-)
Danke
Anzeige
;

Forumthreads zu verwandten Themen

VBA - Mehrere Ordner auswählen + Pfade speichern
Thomas

Hallo,
der Betreff sagt eigentlich schon alles:
ich möchte ein Dialogfenster öffnen, in dem man mehrere Ordner (nur die Ordner, nicht deren Inhalt) auswählen kann und dann deren Pfad in einem Array gespeichert haben.
Ich habe es schon mit "msoFileDialogFolderPicker" versucht, nur le...
08.10.2009 17:03:03
Thread-ID: 1108139
2 Beiträge
Dateinamen/Tabellenbla aus Dateipfad herausfiltern
Xetom

Hallo zusammen,
ich bin schon fast am verzweifeln. Ich versuche folgendes:
Ich möchte aus der Funktion ZELLE() den Dateinamen und das Tabellenblatt aus dem dateipfad ermitteln. Ich weiß, dazu gibt es schon viele Anleitungen. Allerdings greifen diese nicht bei meinem Problem.
Der Dat...
31.10.2013 16:08:24
Thread-ID: 1336700
6 Beiträge
VBA - pdf-Dateiname aus Zellenwert
Frank

Hallo,
bin neu hier und benötige Hilfe.
Bin schon Stunden an meinem Makro dran, es will mir nicht gelingen.
VBA-Kenntnisse sind NICHT vorhanden, das Untengeschriebene habe ich mir z.T. kopiert und so an mein Anliegen angepasst.
Ich möchte jedoch eine Änderung vornehme, die mir e...
28.01.2014 15:44:42
Thread-ID: 1347093
5 Beiträge
Dateinamen aus Pfad extrahieren
Tom

Hallo,
habe schon eineige Versuche hinter mir, klappt aber nicht Kann mir jemand einen kurzen Code zeigen, der mir den Dateinamen liefert?
Danke
TOM
12.03.2014 13:15:34
Thread-ID: 1353226
10 Beiträge
Dateiname aus Pfad
Dirk

Hallo liebe Tüftler,
in Spalte C stehen Dateinamen mit kompletter Pfandangabe in Textform.
Sowohl die Anzahl der Unterverzeichnisse (also damit auch die "\") als auch die Dateinamenserweiterungen sind unterschiedlich (.csv, .xlsm ...).
Nun benötige ich in Spalte B nur den Dateinamen...
10.02.2015 21:15:35
Thread-ID: 1408518
4 Beiträge
Anzeige
Tabelle per VBA speichern Dateiname aus Zelle
Sebastian

Moin.
Ich habe folgendes Problem. Mein Formular speichere ich täglich mehrfach unter anderem Namen ab und muss momentan immer den Dateinamen neu tippen.
Der Dateiname setzt sich aus zwei Zellen im Formular
1. Wagennummer: 4780 2911 257-8
2. Datum: 28.05.1985
(in diesem Forma...
05.07.2017 09:23:05
Thread-ID: 1567449
4 Beiträge
Dateiname aus Pfad weitergeben
Björn

Hallo ich habe wieder ein kleines Problem:
Ich möchte in einer Zelle einen Dateipfad inkl. Dateiname eingeben.
Dieser wird in einer Variable gespeichert und in einem weiteren Makro wider aufgerufen. dort soll der dateiname aus dem Pfad ausgelesen und ausgegeben werden.
Ich habe das...
24.12.2017 12:21:19
Thread-ID: 1598779
5 Beiträge
app.Filesearch den Dateinamen aus Pfad
lotharP
Hallo Leute,

ich lasse mir mit application.Filesearch aus einem Verzeichnis Dateien mit Pfadnamen auslesen.
Diese kompletten Pfadnamen benutze ich auch in der weiterverarbeitung.
Nun möchte ich mir aber zusätzlich in eine variable den Dateinamen stellen.
Als absolutes Highlight...
30.09.2003 13:22:37
Thread-ID: 317072
4 Beiträge
Dateinamen aus Pfad
Matze
Hi,
ich möchten einen Teil eines Pfades z.B. "D:\Ordner\XYZ25032003.xls" aufteilen und nur den Teil 25032003 des Dateinames erhalten. Die Pfade sind immer nach dem angegebenen Muster aufgebaut.
Erst kommen die Ordner und dann der dateinamen mit 3 Bezeichnern am Anfang dann der Teil den ich b...
23.01.2004 09:56:03
Thread-ID: 369445
4 Beiträge
Anzeige
Dateiname aus Pfad auslesen
Firat

Hallo zusammen,
ich will aus einem Pfad den Dateinamen auslesen:
z. B.
Pfad: C:\Programme\Excel\testversion.xls
Dateiname: testversion.xls
Ich hab mir schon überlegt, ob ich den Pfad in einen String einlesen soll und dann nach dem letzten "\" suchen ?!
Wollte vorher fragen,...
15.03.2005 10:14:52
Thread-ID: 585291
9 Beiträge
Anzeige
Dateiname aus Pfad+Dateinamen
Jens

Hi
Ich habe ein kleines Problem. Ich habe eine Variable, welche mit der vollständigen Pfadangabe (A:\Test\test.xls) belegt ist.
Nun such ich nach einen einfachen Weg, um die Pfadangaben da rauszukriegen.
Ziel ist da nur noch (test.xls) in der Variable zu haben.
Wer kann mir dabe...
17.03.2005 15:34:52
Thread-ID: 586843
4 Beiträge
Dateiname aus Pfad lesen
Heiko

Hallo,
kann mir jemand helfen, den Dateinamen per VBA aus der Pfadangabe herauszulesen, also ohne den Pfad und ohne Erweiterung:
C:\Pfad\Pfad\pfad\dateiname.xyz
herauskommen soll "dateiname", der eine variable Länge haben kann.
Vielen Dank im voraus, Heiko
19.02.2006 13:22:56
Thread-ID: 734775
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Pfad und Dateiname in Excel trennen

Schritt-für-Schritt-Anleitung

  1. FileDialog erstellen: Du kannst den FileDialog verwenden, um eine Datei auszuwählen. Hier ist ein Beispielcode:

    Dim dlg As FileDialog
Dim si As Variant
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
With dlg
    .AllowMultiSelect = False
    .ButtonName = "Bild auswählen"
    .Filters.Add "Bilder", "*.gif; *.jpg; *.jpeg; *.bmp"
    .Filters.Add "Alle", "*.*"
    .FilterIndex = 0
    .InitialFileName = ThisWorkbook.path
    .InitialView = msoFileDialogViewDetails
    .Title = "Meine Bilderdatenbank der Züge"
End With

  2. Dateinamen extrahieren: Um nur den Dateinamen aus dem Pfad zu bekommen, kannst du folgenden Code verwenden:

    If dlg.Show = True Then
    For Each si In dlg.SelectedItems
        ActiveCell.Value = Dir(si) ' Extrahiere den Dateinamen
    Next
End If

  3. Meldung anzeigen: Optional kannst du eine Meldung anzeigen lassen, um zu fragen, ob der Benutzer das Bild übernehmen möchte.

Häufige Fehler und Lösungen

  • Laufzeitfehler '5' bei msoFileDialogViewThumbnail: Dieser Fehler kann auftreten, wenn die Thumbnail-Ansicht nicht verfügbar ist. Verwende stattdessen msoFileDialogViewDetails, um die Dateien als Liste anzuzeigen.

  • Dateiname wird nicht korrekt extrahiert: Stelle sicher, dass du die Dir-Funktion korrekt verwendest, um den Dateinamen aus dem Pfad abzurufen.

Alternative Methoden

Eine alternative Methode, um den Dateinamen aus einem Pfad zu extrahieren, besteht darin, die Länge des Pfades zu ermitteln und dann den Text nach dem letzten Backslash zu extrahieren:

Dim i As Integer
i = Len(si)
Do While Mid(si, i, 1) <> "\"
    i = i - 1
Loop
si = Right(si, Len(si) - i)

Diese Methode funktioniert gut, wenn du die Funktion excel dateiname aus pfad extrahieren verwenden möchtest, ohne die Dir-Funktion.

Praktische Beispiele

Hier ein vollständiges Beispiel, wie du den Dateinamen aus einem Pfad mit VBA extrahieren kannst:

Sub DateinameAusPfad()
    Dim dlg As FileDialog
    Dim si As Variant
    Set dlg = Application.FileDialog(msoFileDialogFilePicker)
    With dlg
        .AllowMultiSelect = False
        .Filters.Add "Bilder", "*.gif; *.jpg; *.jpeg; *.bmp"
        .InitialFileName = ThisWorkbook.path
        .Title = "Wähle ein Bild"
    End With

    If dlg.Show = True Then
        For Each si In dlg.SelectedItems
            MsgBox "Der Dateiname ist: " & Dir(si)
        Next
    End If
End Sub

Tipps für Profis

  • Verwende Application.PathSeparator: Anstatt den Backslash \ hart zu kodieren, kannst du Application.PathSeparator verwenden, um die Codeportabilität zu erhöhen.

  • Fehlerbehandlung einbauen: Füge Fehlerbehandlungsroutinen ein, um unerwartete Probleme während der Ausführung zu vermeiden.

  • Zugriff auf Bilddateien: Um ein Bild aus einem Pfad in einer Access-Datenbank anzuzeigen, kannst du die Methode access bild aus pfad anzeigen verwenden, um den Pfad zu speichern und das Bild darauf basierend darzustellen.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Dateinamen aus einem Pfad extrahieren?
Du kannst die AllowMultiSelect-Eigenschaft des FileDialogs auf True setzen und dann in einer Schleife über dlg.SelectedItems iterieren.

2. Funktioniert dieser Code in jeder Excel-Version?
Ja, der Code sollte in den meisten modernen Excel-Versionen (Excel 2007 und später) funktionieren, solange VBA unterstützt wird.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige