mit nachfolgendem Code öffne ich nach Auswahl eine Datei. Nun möchte ich nur den Dateinamen ausgeben, bekomme aber immer den ganzen Pfad dazu.
Ist sicherlich für euch eine einfache Geschichte, aber bei mir blockts gerade.
Danke für eure Hilfe. Gruß Peter
datei1 = Application.GetOpenFilename _
("Microsoft Excel-Dateien (*.dat), *.dat")
If datei1 = False Then Exit Sub
Workbooks.OpenText Filename:=datei1
If datei1 = "" Then Exit Sub
Dim MyName As String
MyName = ActiveWorkbook.FullName
msgbox MyName