VBA: Automatisch mehrere Tabellenblätter löschen?
Moin, ich möchte gerne mehrere Tabellenblätter löschen (Excel -> VBA). Das Problem dabei: Die Nummer des ersten und letzten zu löschenden Blattes soll abgefragt werden. Habe jetzt schon die eine oder andere Zeile "zusammengebastelt", allerdings läuft das Sub noch nicht so ganz rund. Kann mir da jemand weiterhelfen?? Bin mit VBA leider nicht so vertraut....
Sub Aufgabe 17()
Dim intWert1 As Integer
Dim intWert2 As Integer
Dim intWert3 As Integer
intWert1 = InputBox("Nummer des ersten zu löschenden Blattes?", "Tabellenblätter löschen", 0)
intWert2 = InputBox("Nummer des letzten zu löschenden Blattes?", "Tabellenblätter löschen", 0)
Application.DisplayAlerts = False
For intWert3 = intWert1 To intWert2
intWert3 = "Tabelle" + intWert1
Worksheets(intWert3).Delete
Next intWert3
Application.DisplayAlerts = True
End Sub
Microsoft Excel,
VBA,
Tabelle