mit sFiles = Application.GetOpenFilename("DAT Files (*.txt;*.dat),") wird die Datei geöffnet um Daten zu importieren.
Nun würde ich gerne den Name der *.txt Datei in die Zelle A1 eintragen.
Hier mein Anzatz:
Sub Makro1()
Dim var As Variant
Dim sFiles As String
var = sFiles
sFiles = Application.GetOpenFilename("DAT Files (*.txt;*.dat),")
var = sFiles
Range("A1").Value = var
End Sub
Leider wird der ganze Pfad eingetragen und ich hätte aber nur den Dateiname.Kann mir jemand helfen?
Vielen Dank. Gruß chandler