Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

FileName?

FileName?
12.12.2007 14:41:55
Patrick
Hallo,
mein Problem ist folgendes:
Ich habe eine Suche mit VBA geschrieben, die jede Datei in einem Ordner sucht, die Größe der jeweiligen Datei angibt und einen Link mit der die Datei geöffnet werden kann. Was jetzt noch fehlt ist eine Spalte wo der Dateiname eingetragen wird.
Wie kann ich aus einem Pfad + Dateinamen nur den Dateinamen herrausfiltern und in eine Spalte schreiben?
zb.
Link: "H:\My Documents\My Pictures\golf.jpeg" und in der Spalte Name halt nur: "golf.jpeg"
Mfg
Patrick

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: FileName?
12.12.2007 15:01:00
Beverly
Hi Patrick,
verwende die InStrRev-Funktion.
________________________________________

AW: FileName?
12.12.2007 15:18:05
Patrick
kansnt du das vllt bisschen genauer erklären blick durch die Hilfe funktion nicht so durch xD

AW: FileName?
12.12.2007 17:02:05
Beverly
Hi Patrick,

MsgBox Right("H:\My Documents\My Pictures\golf.jpeg", Len("H:\My Documents\My Pictures\golf. _
jpeg") - InStrRev("H:\My Documents\My Pictures\golf.jpeg", "\"))


Bis später,
Karin

Anzeige
AW: FileName?
12.12.2007 17:20:00
Jan
Hi,
Option Explicit

Function Name_pur(Dateiname As String) As String
''Code von K.Rola aus dem Archiv
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Name_pur = fso.GetFileName(Dateiname)
End Function




Sub teste()
MsgBox Name_pur("C:\Ordener\Verzeichnis\deineDatei.xls")
End Sub


mfg Jan

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige