prePfad =
"G:\ANGEBOTE"
If
Forms![Gesamtoffertliste]![Prefix] = 3
Then
prePfad =
"G:\ANGEBOTE\03_BT"
End
If
If
Forms![Gesamtoffertliste]![Prefix] = 4
Then
prePfad =
"G:\ANGEBOTE\04_GT_Angebote"
End
If
If
Forms![Gesamtoffertliste]![Prefix] = 6
Then
prePfad =
"G:\ANGEBOTE\06_Kleinangebote"
End
If
If
Forms![Gesamtoffertliste]![Prefix] = 7
Then
prePfad =
"G:\ANGEBOTE\07_WBL"
End
If
Pfad = DateiOeffnen(
"Datei öffnen"
,
"Microsoft-Excel-Dateien"
& Chr$(0) &
"*.xls"
, , prePfad)
If
Pfad =
""
Or
Null
Then
MsgBox
"Bitte wählen Sie eine Excel-Datei (*.xls) aus!"
, vbInformation,
"Fehler"
Exit
Sub
End
If