ich suche eine Möglichkeit einen Dateinamen in einer Dialogbox auszuwählen und in eine Tabelle zu schreiben. Die Funktion könnte analog zu GetDirectory aufgebaut sein, hab leider nichts ähnliches gefunden oder war zu blind.
Sub DateinameAuswaehlen()
Dim varAuswahl, aktiverPfad As String
'aktiverPfad = VBA.CurDir 'aktves Verzeichnis merken
varAuswahl = Application.GetOpenFilename(FileFilter:="Alle (*.*),*.*", _
Title:="Bitte den gewünschten Dateinamen auswählen und Öffnen")
If varAuswahl False Then
Range("A1") = varAuswahl 'Pfad + dateiname eintragen
Range("A2") = Mid(varAuswahl, Len(VBA.CurDir) + 2) 'Nur dateiname eintragen
End If
'VBA.ChDir = aktiverPfad 'gemerktes Verzeichnis wieder setzen
End Sub