prüfung ob datei offen ist
15.12.2004 17:46:34
Micha
ich brauche mal Eure Hilfe. Wie kann ich in dem folgenden Text eine Prüfung einbauen, ob eine bestimmt Datei offen ist. Wenn nein, dann soll das Makro nicht weiter ausgeführt werden und eine MSGBOX kommen. Wenn die Datei geöffnet ist, soll das Makro weiter laufen...
Danke Euch!
Micha
Sub Schaltfläche1_BeiKlick()
' Tastenkombination: Strg+u
' prüfen ob Statistik.xls geöffnet ist - Fehlermeldung
' hier benötige ich die Prüfung ob Datei geöffnet ist oder nicht?
' Berichtigungen beginnen
Windows("Statistik.xls").Activate
Worksheets("Mai").Unprotect "123"
Range("C3:C64").Select
Selection.NumberFormat = "General"
Range("C3").Select
Selection.NumberFormat = "dd/ mmm"
Range("A1").Select
Worksheets("Mai").Protect "123"
'Datei speichern und schließen
ActiveWorkbook.Save
ActiveWorkbook.Close
' fertig
End Sub