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

Alle Blätter löschen bis auf das 1.

Alle Blätter löschen bis auf das 1.
09.02.2006 14:28:28
petra
Hallo,
kann man per makro alle tabellenblätter löschen bis auf das erste?
die problematik ist, dass die anzahl der tabellenblätter unterschiedlich ist.
kann mir da jemand weiterhelfen?
vielen dank.
lg
petra

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Blätter löschen bis auf das 1.
09.02.2006 14:34:09
Matthias
Hallo Petra,
z.B.:

Sub Loeschen()
Application.DisplayAlerts = False
Do Until Sheets.Count = 1
Sheets(2).Delete
Loop
Application.DisplayAlerts = True
End Sub

Gruß Matthias
AW: Alle Blätter löschen bis auf das 1.
09.02.2006 14:34:15
UweD
Hallo
so klappt es.

Sub Kill_Tab()
Dim Z%
For Z = Sheets.Count To 2 Step -1
Application.DisplayAlerts = False
Sheets(Z).Delete
Application.DisplayAlerts = True
Next
End Sub

Gruß UweD
(Rückmeldung wäre schön)
AW: Alle Blätter löschen bis auf das 1.
09.02.2006 14:36:42
Reinhard
Hi Petra,

Sub tt()
Application.DisplayAlerts = False
For n = ThisWorkbook.Worksheets.Count To 2 Step -1
ThisWorkbook.Worksheets(n).Delete
Next n
Application.DisplayAlerts = True
End Sub

Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.
Anzeige

144 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige