feststellen ob "neues Fenster" geöffnet ist

Bild

Betrifft: feststellen ob "neues Fenster" geöffnet ist
von: Carsten
Geschrieben am: 04.11.2003 11:42:06

Hallo zusammen,

über Fenster - neues Fenster kann ich eine zweite Instanz einer Datei öffnen, z.B. um mir zwei Blätter einer Datei nebeneinander zeigen zu lassen.
Wie kann ich per VBA prüfen ob dies der Fall ist um eine Instanz wieder zu schließen?

Gruß
Carsten

Bild


Betrifft: AW: feststellen ob "neues Fenster" geöffnet ist
von: K.Rola
Geschrieben am: 04.11.2003 11:57:05

Hallo,

das kannst du z.B. im Modul von "DieseArbeitsmappe" mit
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
feststellen.

Gruß K.Rola


Bild


Betrifft: AW: feststellen ob "neues Fenster" geöffnet ist
von: Carsten
Geschrieben am: 04.11.2003 12:00:58

Hallo K.Rola,

danke für die Antwort. Nutzt mir leider gar nichts denn (siehe Level) meine VBA Kenntnisse stecken leider noch in den Kinderschuhen :-(
Kannst Du mir das etwas ausführlicher beschreiben?

Gruß
Carsten


Bild


Betrifft: Problem gelöst
von: Carsten
Geschrieben am: 04.11.2003 12:05:15

Hallo K.Rola,

Werner hatte eine gute Idee. Jetzt klappt's.

Danke aber auch für Deine Hilfe.

Gruß
Carsten


Bild


Betrifft: AW: feststellen ob "neues Fenster" geöffnet ist
von: WernerB.
Geschrieben am: 04.11.2003 12:00:15

Hallo Carsten,

mal ungetestet:

Sub Carsten()
   If Right(ActiveWindow.Caption, 2) = ":1" Or _
     Right(ActiveWindow.Caption, 2) = ":2" Then _
     ActiveWindow.Close
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


Bild


Betrifft: AW: feststellen ob "neues Fenster" geöffnet ist
von: Carsten
Geschrieben am: 04.11.2003 12:03:56

Hallo Werner,

jetzt ist es getestet und funktioniert einwandfrei.

Vielen Dank

Gruß
Carsten


Bild

Beiträge aus den Excel-Beispielen zum Thema " feststellen ob "neues Fenster" geöffnet ist"