Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
1144to1148
1144to1148
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Geöffnete Datei aktivieren

Forumthread: Geöffnete Datei aktivieren

Geöffnete Datei aktivieren
Benedikt
Guten Abend miteinander
Nachfolgender Codeschnippsel aktiviert die offene Test.xls
Wie kann ich den Code erweitern, wenn die Test.xls nicht offen ist, das Makro trotzdem zu ende geführt wird
Windows("Test.xls").Activate
Application.ScreenUpdating = True
MsgBox "Alles I.O "
Vielen Dank für eure Hilfe
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Geöffnete Datei aktivieren
15.03.2010 21:06:42
Hajo_Zi
Hallo Benedikt,
prüfe vorher ob Datei auf
BoOffen = False
For Each WbAm In Workbooks
If UCase(WbAm.Name) = UCase("Test.xls") Then
BoOffen = True
Exit For
End If
Next
If BoOffen = False Then
Workbooks.Open Filename:="C:\Test.xls"
End If

Anzeige
AW: Geöffnete Datei aktivieren
15.03.2010 21:22:25
Benedikt
Guten Abend Hajo
Vielen herzlichen Dank für deine spontane Antwort. Wenn ich das richtig verstehe wird zuerst kontrolliert ob die datei offen ist, wenn nicht wird Sie geöffnet. Richtig?
Geht es auch das die Test.xls nicht geöffnet wird und der Rest des Makro weiter ausgeführt wird?
Die Test.xls sollte nur aktiviert werden wenn Sie geöffnet ist, ansonsten sollte Sie nicht geöffnet werden.
Vielen Dank
Anzeige
AW: Geöffnete Datei aktivieren
15.03.2010 21:40:15
Hajo_Zi
Hallo benedikt,
dann ändere das Ende.
If BoOffen Then
Workbooks.("Test.xls").Activate
End If
Oder mache es ohne meine Code mit einer Fehlerbehandlung, was ich ablehne.
Gruß Hajo
Vielen Dank!!
16.03.2010 00:22:38
Benedikt
.
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