Laufwerk nicht da
01.11.2007 18:09:18
Kurt
habe diese Makro, auch über das Forum.
Private Sub CommandButton20_Click()
Dim strDatei
ChDrive "X:\"
ChDir "X:\Lagerhaltung"
strDatei = Application.GetOpenFilename("Microsoft Excel-Dateien ,*.*")
If strDatei = False Then Exit Sub
Workbooks.Open strDatei
End Sub
jetzt möchte ich gern, wenn das Laufwerk nicht vorhanden ist, das eine Box kommt,
mir die Laufwerke angezeigt werden und ich mein Laufwerk auswählen , anklicken kann,
bin leider nicht so fündig geworden.
gr Kurt P
Anzeige