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

Nicht Active Worksheets löschen...

Nicht Active Worksheets löschen...
02.02.2007 12:37:13
Afro
Hallo, bin wieder da!
Wie kann man alle nicht aktiven Worksheets löschen? Danke Euch!Afro
If Worksheets.Application.ActiveSheet = False Then 'KLAPPT NICHT!!
Worksheets.Delete
Else
End If

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nicht Active Worksheets löschen...
02.02.2007 12:50:33
Ramses
Hallo
Option Explicit

Sub delete_sheets()
Dim i As Long
Application.DisplayAlerts = False
For i = Worksheets.Count To 1 Step -1
If i <> ActiveSheet.Index Then
Worksheets(i).Delete
End If
Next i
Application.DisplayAlerts = True
End Sub

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige