Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
356to360
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
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei öffnen bzw. Fenster wechseln

Datei öffnen bzw. Fenster wechseln
04.01.2004 10:30:08
Stephan
Einen schönen Sonntag.

Ich möchte eine bereits angelegte Datei per Makro öffnen.
Wenn diese Datei aber bereits geöffnet ist, dann soll halt nur das
Fenster gewechselt werden. Wie kann ich die Abfrage machen, welcher
Ausdruck gehört zwischen If und Then?

If Windows("Archiv.xls") = geöffnet Then
Windows("Archiv.xls").Activate
Else
Workbooks.Open FileName:="C:\Eigenorganisation\Archiv.xls"
End If

Vielen Dank für Eure Hilfe
Stephan

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

Betreff
Datum
Anwender
Anzeige
AW: Datei öffnen bzw. Fenster wechseln
04.01.2004 10:35:14
Hajo_Zi
Hallo Stephan

auf Select, Activate usw. kann in VBA zu 99% verzichtet werden

Sub Test()
Dim BoOffen As Boolean
BoOffen = False
For Each x In Workbooks
If x.Name = "Auftragsplanung Übersicht.XLS" Then
Workbooks("Auftragsplanung Übersicht.XLS").Save
BoOffen = True
Exit For
End If
Next
If BoOffen = False Then Workbooks.Open Filename:=StNetz & "Auftragsplanung Übersicht.XLS"
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
AW: Datei öffnen bzw. Fenster wechseln
04.01.2004 11:04:14
Stephan
Vielen Dank Hajo_Zi,

hat mir sehr geholfen.

Stephan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige