ich moechte nur den Ordner einer Datei in einen string uebergeben.
Das folgende Macro liest aber nur den Namen hinter "\" aus und nicht vor.
Weiss da einer weiter?
Vielen Dank im Vorraus MarionW
Option Explicit
Public strPfad As String
Sub Dateiname_bestimmen()
strPfad = Application.GetOpenFilename("Excel Files (*.xls), *.xls;")
If Dir(strPfad) = "" Then Exit Sub
MsgBox FILENAME(strPfad)
End Sub
Function FILENAME(strDatei As String) As String
FILENAME = Right(strDatei, Len(strDatei) - InStrRev(strDatei, "\", , vbTextCompare))
End Function