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
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ß MatthiasSub 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ß GerdDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen