wie kann man bei dem Befehl
ActiveWorkbook.SaveAs "A:\xyz.xls"
prüfen, ob eine Diskette eingelegt ist?
Gruß Ralf
Sub test()
If Dir("A:\") <> "" Then
MsgBox "ok"
Else
MsgBox "nicht ok"
End If
End Sub
Sub Makro3()
On Error GoTo qay
a = Dir("A:")
MsgBox "ok"
Exit Sub
qay:
MsgBox "nix"
End Sub