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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen