Überprüfen ob Datei geöffnet ist mit VBA

Bild

Betrifft: Überprüfen ob Datei geöffnet ist mit VBA von: Domi
Geschrieben am: 20.02.2005 08:41:12

Gute Morgen Zusammen,

Wie kann ich in VBA überprüfen ob eine Datei bereits geöffnet ist ?


Sub Datei()
Dim jj as String
JJ = "Test.xls"
Workbooks.Open Filename=jj
' nun werden irgendwelche Berechnungen ausgeführt......
If jj = GEÖFFNET then f= 1 Else F = 99   '??Befehl für Abfrage geöffnet??
End Sub


vielen Dank für eure Hilfe

Freundliche Grüsse
Domi
Bild


Betrifft: AW: Überprüfen ob Datei geöffnet ist mit VBA von: Josef Ehrensberger
Geschrieben am: 20.02.2005 09:07:44

Hallo Domi!

Vielleicht so.


Sub Datei()
Dim jj as String
Dim wb As Workbook
chkOpen As Boolean
chkOpen = False
JJ = "Test.xls"
For Each wb In Application.Workbooks
If wb.Name = JJ Then chkOpen = True: Exit For
Next
If Not chkOpen Then Workbooks.Open Filename=JJ
' nun werden irgendwelche Berechnungen ausgeführt......
End Sub



Gruß Sepp

P.S.: Rückmeldung nicht vergessen!


Bild


Betrifft: Genau das habe ich gesucht! vielen Dank! o.T von: Domi
Geschrieben am: 20.02.2005 09:33:31

--


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Schleife in UserForm"