Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Laufwerk A:\

Betrifft: Laufwerk A:\ von: ralf.p
Geschrieben am: 26.08.2004 11:45:50

Hallo zusammen,
wie kann man bei dem Befehl
ActiveWorkbook.SaveAs "A:\xyz.xls"
prüfen, ob eine Diskette eingelegt ist?

Gruß Ralf

  


Betrifft: AW: Laufwerk A:\ von: Nike
Geschrieben am: 26.08.2004 11:58:35

Hi,
da ich hier keine Diskette rumfliegen hab,
mal so versuchen?

Sub test()
If Dir("A:\") <> "" Then
MsgBox "ok"
Else
MsgBox "nicht ok"
End If
End Sub


Bye

Nike


  


Betrifft: AW: Laufwerk A:\ von: Andreas Walter
Geschrieben am: 26.08.2004 11:59:52

Glaube man muss ein ON ERROR benutzen
Sub Makro3()
'
On Error GoTo qay
a = Dir("A:")
MsgBox "ok"
Exit Sub

qay:
    MsgBox "nix"
'
End Sub



  


Betrifft: AW: Laufwerk A:\ von: Ralf.p
Geschrieben am: 26.08.2004 13:04:56

Danke, so geht´s


  


Betrifft: AW: Laufwerk A:\ von: ralf.p
Geschrieben am: 26.08.2004 13:06:33

checkt leider nur ob Diskette voll oder leer !


 

Beiträge aus den Excel-Beispielen zum Thema "Laufwerk A:\"