Dateiname einlesen
24.10.2012 14:59:41
chandler
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
Kann mir jemand helfen?
Vielen Dank. Gruß chandler
Anzeige