prüfung ob datei offen ist

Forumthread: prüfung ob datei offen ist

15.12.2004 17:46:34

Micha

Hallo Leute,
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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: prüfung ob datei offen ist

15.12.2004 18:07:23

Tom
AW: prüfung ob datei offen ist

15.12.2004 18:18:02

Micha
AW: prüfung ob datei offen ist

15.12.2004 18:38:10

Josef
funzt, vielen, vielen Dank! o.T.

15.12.2004 18:56:43

Micha

AW: prüfung ob datei offen ist

15.12.2004 18:07:23

Tom

Nimm einfach eine Fehlermeldung mit rein "On Error GoTo Fehler"
Gruß Tom


Sub Schaltfläche1_BeiKlick()
' Tastenkombination: Strg+u
On Error GoTo Fehler
' Berichtigungen beginnen
Workbooks("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
Fehler:
MsgBox "Datei ist nicht geöffnet!!!"
' fertig
End Sub

AW: prüfung ob datei offen ist

15.12.2004 18:18:02

Micha

Hallo Tom,
vielen Dank, aber das geht nicht, weil mein Makro aus einer anderen Tabelle gesteuert wird und somit nach dem schließen der Statistik wieder zurück springt. D.h., die Fehlermeldung wird auch angezeigt, wenn die Korrektur erfolgreich war.
Was kann ich nun machen?
Micha

AW: prüfung ob datei offen ist

15.12.2004 18:38:10

Josef

Hallo Micha!
Sollte funzen!


Sub Schaltfläche1_BeiKlick()
Dim wkb As Workbook
Dim blnCheck As Boolean
' Tastenkombination: Strg+u
' prüfen ob Statistik.xls geöffnet ist - Fehlermeldung
For Each wkb In Application.Workbooks
If wkb.Name = "Statistik.xls" Then
blnCheck = True
Exit For
End If
Next
If Not blnCheck Then
MsgBox "Die Datei ""Statistik.xls"" ist nicht geöffnet!", , "Abbruch"
Exit Sub
End If
' 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

Gruß Sepp

funzt, vielen, vielen Dank! o.T.

15.12.2004 18:56:43

Micha

Beliebteste Forumthreads (12 Monate)

Forumthread: prüfung ob datei offen ist

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread