Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1540to1544
1540to1544
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige