Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     Referenzen
 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

Prüfen, ob eine Diskette eingelegt ist

105024



Mit diesem Code können Sie prüfen, ob im Diskettenlaufwerk eine Diskette eingelegt ist.
Ist keine Diskette eingelegt, werden Sie aufgefordert, eine einzulegen.

Sub Prüfung_Diskettenschacht()
'Variablen dimensionieren
Dim datei

'Fehler abfangen
On Error Resume Next

'Prüfen, ob Diskette eingelegt ist und Meldung ausgeben
If IsError(MeineDatei = Dir("a:\", vbDirectory)) = True Then
    MsgBox "Bitte eine Diskette einlegen!"
    Exit Sub
End If

End Sub

Sie können also Erzwingen, dass eine Diskette eingelegt wird.
Dies ist bspw. für Installationsroutinen etc. wichtig.

 

   

Relevante Artikel

  • Prüfen, ob eine Diskette eingelegt ist

    105024 Mit diesem Code können Sie prüfen, ob im Diskettenlaufwerk eine Diskette eingelegt ist.Ist keine Diskette eingelegt, werden Sie aufgefordert, eine einzulegen.Sub Prüfung_Diskettenschacht()'Variablen...

  • Windows- bzw. Windwos-System-Verzeichnis ermitteln

    Das Windowsverzeichnis ermitteln (VBA) Um das Windows-Verzeichnis zu ermitteln fügen Sie folgenden Code in ein Modul ein: SyntaxHighlighter.config.clipboardSwf =...

  • Arbeitsmappe per VBA schließen

    103002 Es gibt verschiedene Möglichkeiten per VBA eine Arbeitsmappe zu schließen.Variante 1: Speichern mit DialogfensterBei dieser Variante stellt Excel die Frage, ob die Datei gespeichert werden...

  • Arbeitsmappe aus Dateiliste öffnen

    103008 In Excel werden Wahlweise bis zu 9 der zuletzt geöffneten Arbeitsmappen unter dem Menüpunkt 'Datei' angezeigt. Möchten Sie aus dieser Auswahlliste eine Datei öffnen, dann hilft Ihnen dieses...

  • Umbenennen von Dateien per VBA

    105040   Das folgende Makro benennt Dateien um, indem der alte Dateiname einfach durch den neuen ersetzt wird. Public Sub umbenennen() Name "C:\test\mappe1.csv" As "C:\test\mappe1.txt" End Sub   So wird aus der...

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013