Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
340to344
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige