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

Blätter schließen

Blätter schließen
09.12.2002 12:44:56
Ralf
Hallo alle zusammen
Ich möchte gerne alle offenen Arbeitsblätter schließen außer das blatt mit dem namen "Artikelliste". Die arbeitsmappe hat immer eine verschiedene Anzahl von Arbeitsblättern.
Ich bekomm das nicht hin brauche eure Hilfe.

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

Betreff
Datum
Anwender
Anzeige
Re: Blätter schließen
09.12.2002 12:50:25
Boris
Hallo Ralf,

Gruß Boris

Re: Blätter schließen
09.12.2002 12:53:23
PeterW
Hallo Ralf,

der Code von Boris LÖSCHT alle Arbeitsblätter! Wenn Du sie nur ausblenden willst dann statt
sheets(x).delete
sheets(x).visible=false

Gruß
Peter

Re: Blätter schließen
09.12.2002 12:55:55
Hajo_Zi
Hallo Ralf

mal ungetestet


Option Explicit

Sub Ralf()
Dim InI As Integer
Dim ObV As Object
For InI = ObV.Count To 1 Step -1
If ObV.Item(InI).Name <> "Artikelliste.XLS" Then Windows(ObV.Item(InI).Name).Close True ' es wird gespeichert
Next InI
End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß hajo

Anzeige
es klappt danke
09.12.2002 13:05:01
Ralf
Super

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige