Aktuellen Ordner Öffnen
12.12.2020 19:10:56
Ulrich
kurze Frage:
Mit folgenden Code öffne ich den Dateiexplorer.
Was muss ich ergänzen, dass er den aktuellen Ordner öffnet?
Ich habe schon vieles versucht, bekomme es aber nicht hin.
Gruß Ulli
Sub Datei_suchen()
Dim Dateiauswahl As Variant
erneut:
Dateiauswahl = Application.GetOpenFilename
If Dateiauswahl False Then
ActivWorkbooks.Open Filename:=Dateiauswahl
Else
If MsgBox("Es wurde keine Datei ausgewählt. Klicken Sie 'OK' um eine Datei auszuwählen, _
oder 'Abbrechen' um den Vorgang abzubrechen und das Makro zu beenden.", (vbOKCancel)) = vbOK Then
GoTo erneut
Else
Exit Sub
End If
End If
End Sub
Anzeige