habe folgendes Makro, ist soweit i.o. aber ich möchte jetzt vorher prüfen
ob die Verzeichnisse vorhanden sind, wenn nicht sollt MSGBOX kommen:
Habe dies ebenfalls aus dem Forum:
Private Sub CommandButton6_Click()
Dim strDatei
ChDrive "C:\"
ChDir "C:\Werkstatt\Lager1\"
strDatei = Application.GetOpenFilename("Microsoft Excel-Dateien ,*.*")
If strDatei = False Then Exit Sub
Workbooks.Open strDatei
End Sub
mfg walter MB