Nicht Active Worksheets löschen...

Forumthread: Nicht Active Worksheets löschen...

02.02.2007 13: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

AW: Nicht Active Worksheets löschen...

02.02.2007 13:50:33

Ramses

AW: Nicht Active Worksheets löschen...

02.02.2007 13: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

Nicht Active Worksheets löschen...

Forumthread: Nicht Active Worksheets löschen...

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread