Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
508to512
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
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei öffnen

Datei öffnen
28.10.2004 06:32:03
Stan
Hallo zusammen! Meine Excel Datei überträgt in zwei andere Dateien viele Werte ein. Ich brauche eine Funktion zur Überprüfung, ob die zu öffnende Arbeitsmappe bereits offen ist. Wenn ja, dann abbruch.
Danke im voraus.
Gruß Stan

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei öffnen
28.10.2004 08:32:02
wastl
tach stan,


Sub suchen()
Dim a
For a = 1 To Workbooks.Count
Workbooks(a).Activate
If Workbooks(a).Name = "test.xls" Then
    Exit For
End If
Next
MsgBox "Test.xls nicht gefunden"
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß wastl
Anzeige
AW: Datei öffnen
28.10.2004 09:17:56
Stan
Danke wastl.
Muss ich nicht noch Pfad von der datei eingeben?
AW: Datei öffnen
28.10.2004 09:22:26
wastl
tach stan,
wieso pfad?
offen heißt in aktueller excelinstanz geöffnet!
Wenn ich sie öffent will, brauche ich den Pfad.
das war aber nicht bedingung!
es geht nur zum prüfen ob sie schon offen ist
Gruß wastl
AW: Datei öffnen
28.10.2004 11:07:34
Stan
Du hast schon recht, aber die datei ist nicht auf meinem Rechner sondern im Netzwerk, auf dem Server F:. Ich habe die datei bei mir kopiert und ausprobiert. Ob offen oder nicht bekomme immer die meldung "Datei nicht gefunden"
AW: Datei öffnen
28.10.2004 17:50:28
wastl
Hi stan,
nächster Versuch:
Sub suchen()
Dim a%, b$
For a = 1 To Workbooks.Count
b = Workbooks(a).Name
If b = "Test.xls" Then
    MsgBox "Datei=" & b & "= ist geöffnet"
    Exit Sub
End If
Next
MsgBox "Test.xls nicht gefunden"
End Sub

Code eingefügt mit Syntaxhighlighter 1.9


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige