Makro Tabellenblätter löschen anhand einer Liste

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public Sub Blätter_löschen() Dim loLetzte As Long, i As Long With Worksheets("Tabelle1") 'Blatt mit Blattnamen in Spalte A loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row Application.DisplayAlerts = False For i = 1 To loLetzte On Error Resume Next Worksheets(CStr(.Cells(i, 1))).Delete On Error GoTo 0 Next i Application.DisplayAlerts = True End With End Sub

Option Explicit Public Sub Blätter_löschen() Dim loLetzte As Long, i As Long Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual With Worksheets("Tabelle1") 'Blatt mit Blattnamen in Spalte A loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row Application.DisplayAlerts = False For i = 1 To loLetzte On Error Resume Next Worksheets(CStr(.Cells(i, 1))).Delete On Error GoTo 0 Next i Application.DisplayAlerts = True End With Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub

Hi
Variante 1: ohne Fehlerprüfung, dh alle gelistetetn Blätterm müssen vorhanden sein, die Auflistung muss in Spalte in einem Lückenlosen Block erfolgen:

Sub test1()
Dim tbl
tbl = Sheets("Tabelle1").Columns(1).SpecialCells(xlCellTypeConstants, 3)
tbl = WorksheetFunction.Transpose(tbl)
Sheets(tbl).Select
End Sub

Variante 2: mit fehlerprüfung, dh wenn ein nicht vorhandenes Blatt gelistet ist, dann macht das nichts.

Sub test2()
Dim checkSel As Boolean
Dim tbl
checkSel = True
For Each tbl In Sheets("Tabelle1").Columns(1).SpecialCells(xlCellTypeConstants, 2).Value
On Error Resume Next
ThisWorkbook.Sheets(tbl).Select checkSel
If Err = 0 Then checkSel = False
On Error GoTo 0
Next
If Not checkSel Then ActiveWindow.SelectedSheets.Delete
End Sub

achso ja, das Application.DisplayAlerts = False könntest du noch einbauen.
Gruß Daniel

Sub test1() Dim tbl tbl = Sheets("TBL").Columns(4).SpecialCells(xlCellTypeConstants, 3) tbl = WorksheetFunction.Transpose(tbl) Sheets(tbl).Select ActiveWindow.SelectedSheets.delete Application.DisplayAlerts = True End Sub

Beliebteste Forumthreads (12 Monate)

Makro Tabellenblätter löschen anhand einer Liste

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro Tabellenblätter löschen anhand einer Liste

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread