Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Prüfen, ob eine Datei bereits offen ist

Forumthread: Prüfen, ob eine Datei bereits offen ist

Prüfen, ob eine Datei bereits offen ist
24.11.2003 16:37:04
Cabbydit
Hallo,
ich möchte überprüfen, ob ein eine Excel-DAtei mit einem bestimmten Namen offen ist, also in etwa so:

if open "Test.xls" then
MsgBox "DAtei ist bereits offen"
else
Application.Find.File
end if

Gruß, Andre
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen, ob eine Datei bereits offen ist
24.11.2003 16:58:15
Martial
Hi Andre
so sollte es funktionieren:


Sub offen()
Dim i
For i = 1 To Workbooks.Count
If Workbooks(i).Name = "Test.xls" Then
MsgBox "Datei ist offen"
Exit Sub
End If
Next i
Workbooks.Open "C:\DateiPfad\Test.xls"
End Sub


allenfalls kannst du mit

zu_öffnen = Application.GetOpenFilename("Excel Files (*.xls), *.xls)")
Workbooks.Open zu_öffnen

das File selber auswählen...

Gruss, Martial
Anzeige
AW: Prüfen, ob eine Datei bereits offen ist
26.11.2003 09:24:11
cabbydit
Hi Martial,
läuft leider nicht, bekomme immer wieder den Laufzeitfehler 'index ausserhalb des gültigen Bereiches'.

Habe gerade einen neuen Thread dafür aufgemacht, denn auch Hering hatte dieses Problem und auch die Antwort, die er bekommen hat, läuft nicht. :-(

Gruß, Andre
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige