Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

prüfung ob datei offen ist

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
Anzeige
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

Anzeige
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
Anzeige
funzt, vielen, vielen Dank! o.T.
15.12.2004 18:56:43
Micha

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige