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

Fensterln

Fensterln
10.10.2002 18:36:19
Martiin
Ich möchte (muss) per vba:

1. Feststellen mit wievielen offenen Fenster eine Datei geöffnet wurde (Menü Fenster/neues Fenster)
2. und dann alle bis auf eine Fenster schließen ohne die Datei zu schließen.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Fensterln
10.10.2002 19:06:17
andre
Hallo Martiin,
1. x = Workbooks.Count
2.
' alles schliessen ausser drucken.xls - Option
If UserForm1.CheckBox1 = True Then
For i = 1 To x
If ActiveWorkbook.Name <> "Drucken.xls" Then
ActiveWindow.Close SaveChanges:=False
End If
Next i
End If

... oder for i=2 to x
... oder for 1=1 to x-1
...

gruss andre

Re: Fensterln
10.10.2002 19:08:42
Hajo_Zi
Hallo Andre

ich vermute mal Falschen Ansatz. Es ist nur eine Datei auf und dann Fenster, neues Fenster.

Leider habe ich aber auch keinen Ansatz.

Gruß Hajo

stimmt - windows.count
10.10.2002 19:20:17
andre
1. x = Windows.Count

2.
for i=2 to x
Windows(x).Close
next x

gruss andre

Anzeige
Ansatz i.o, aber Umsetzung nicht-jetzt funzts
10.10.2002 19:29:01
andre
Sub Makro1()
x = Windows.Count
If x > 1 Then
For i = x To 2 Step -1
Windows(i).Close
Next
End If
End Sub
Re: Ansatz i.o, aber Umsetzung nicht-jetzt funzts
10.10.2002 20:01:01
Hajo_Zi
Hallo andre

Dein Ansatz schließt wieder die Dateien. Er muß wie folgt geändert werden. Ich hoffe es ist jetzt richtig.

Gruß Hajo

Re: Ansatz i.o, aber Umsetzung nicht-jetzt funzts
11.10.2002 05:53:39
andre
..stimmt. Hatte zum Test nur ein WB offen, bei zweien oder mehr macht er rigoros alles zu - glücklicherweise kommt bei geänderten Dateien wenigstens die übliche Frage vor dem schliessen ;-)
gruss andre

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige