Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei öffnen

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

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

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