Sehr viele leere Tabellenblätter löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Löschen() On Error Resume Next Application.DisplayAlerts = False Dim i As Integer Dim s As String Dim c As String s = InputBox("Bitte geben Sie die erste zu löschende Tabelle (Tabellenindex) an") c = InputBox("Bitte geben Sie die letzte zu löschende Tabelle (Tabellenindex) an") For i = c To s Step -1 Worksheets(i).Delete Next i Application.DisplayAlerts = True End Sub

Sub Tabellenblatt_loeschen() Dim TabNumberA As String Dim TabNumberE As String Dim I As Integer TabNumberA = InputBox("Nummer des ersten Tabellenblatts eingeben") TabNumberE = InputBox("Nummer des letzten Tabellenblatts eingeben") For I = TabNumberA To TabNumberE Worksheets("Tabelle" & "I").Delete Next I End Sub

HI
je nachdem wie die Sheets angeordet sind.
wenn das letzte zu löschende Sheet ganz am rechten Rand steht, bin ich klar schneller:
- linkes Sheet markieren
- Sheetreiter ganz nach rechts scrollen (dazu auf den rechten der 4 Buttons links neben den Reitern klicken)
- Shift drücken und rechtes Sheet markieren
- Mit rechter Maustaste auf nen Reiter klicken und löschen auswählen
damit hab ich die 300 Sheets gelöscht, bevor du uber EXTRAS-MAKRO-MAKROS überhaupt gestartet hast (naja, fast).
warums nicht funktioniert?
weil du deine Variable in Anführungszeichen gesetzt hast, und damit das I nicht als Variable sondern als fester Text interpetiert wird.
dh. du versucht, 300x das Sheet "TabelleI" zu löschen, und das gibts nicht.
Gruß, Daniel

HI Mumpel
macht es wirklich Sinn, die Index-Nr. als Eingabe zu forden?
da müsste ich ja jedes mal die Tabellenblätter abzählen.
Sinnvoller wäre es, die beiden Tabellenblattnamen eingeben zu lassen, dann kannst du über
Sheets(Tabellenblattname).INDEX
die Index-Nummern ermittlen und damit die Löschschleife aufbauen.
Wenn man zusätzlich mit MIN und MAX arbeitet, ist dann auch die Reihenfolge, in der eingegeben wurde, egal


Sub Löschen()
Application.DisplayAlerts = False
Dim i As Integer
Dim s As String
Dim c As String
s = InputBox("Bitte geben Sie die erste zu löschende Tabelle an")
c = InputBox("Bitte geben Sie die letzte zu löschende Tabelle an")
For i = WorksheetFunction.Max(Sheets(s).Index, Sheets(c).Index) To WorksheetFunction.Min(Sheets( _
s).Index, Sheets(c).Index) Step -1
Worksheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub

Gruß, Daniel
btw "On Error Resume Next" sollte man nie pauschal über ein Makro drüber schreiben, das vertuscht nur die Fehler und erschwert die Fehlersuche ungemein.
im Schlimmsten Fall gibts falsche Ergebnisse, ohne das ein Fehler gemeldet wird.

Beliebteste Forumthreads (12 Monate)

Sehr viele leere Tabellenblätter löschen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

227 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sehr viele leere Tabellenblätter löschen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

227 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread