Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1540to1544
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
Inhaltsverzeichnis

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

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
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige