Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellenblätter löschen

Forumthread: Tabellenblätter löschen

Tabellenblätter löschen
12.02.2017 14:51:13
Kurt
Hallo zusammen,
ich möchte gern Tabellenblätter 2 bis 11 löschen.
Hatte dies mal aufgezeichnet, weil aber die Namen
unterschiedlich sein können, komm ich nicht
weiter.
gruß
kurt k
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter löschen
12.02.2017 15:00:00
Matthias
Hallo
Wenn sie auch in dieser Reihenfolge als Register stehen, kannst Du das probieren.
Option Explicit
Sub TabDelete()
Dim x&
For x = 11 To 2 Step -1
Application.DisplayAlerts = False
Sheets(x).Delete
Application.DisplayAlerts = True
Next
End Sub
Gruß Matthias
Anzeige
AW: Tabellenblätter löschen
12.02.2017 15:07:58
Gerd
Hallo Kurt,
bin etwas langsamer. Hatte dies im Hinterstübchen aufgezeichnet; benutzt die Application weniger.
Sub Delete_Sheets()
Dim I As Integer
Application.DisplayAlerts = False
For I = Application.Min(11, Sheets.Count) To 2 Step -1
Sheets(I).Delete
Next
Application.DisplayAlerts = True
End Sub
Gruß Gerd
Anzeige
Danke Gerd und Matthias, SUPER -)
12.02.2017 15:13:10
Kurt
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige