Herbers Excel/VBA-Archiv

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

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

Laufwerk A:\

• Laufwerk A:\ von ralf.p vom 26.08.2004 11:45:50
• AW: Laufwerk A:\ - von Nike am 26.08.2004 11:58:35
  • AW: Laufwerk A:\ - von Andreas Walter am 26.08.2004 11:59:52
    • AW: Laufwerk A:\ - von Ralf.p am 26.08.2004 13:04:56
  • AW: Laufwerk A:\ - von ralf.p am 26.08.2004 13:06:33

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:\"