Tabellenblätter löschen

Forumthread: Tabellenblätter löschen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Tabellenblätter löschen

21.07.2015 16:36:15

stef26

Hallo Zusammen,
hab mal ne Frage..
Habe eine xlsm in der viele Tabellenblätter enthalten sind.
Wie lösche ich alle Tabellenblätter die leer sind und zusätzlich mit den Namen "diff" oder mit den Namen "Tab" beginnen ?
Liebe Grüße
Stefan

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellenblätter löschen

21.07.2015 16:54:15

Daniel
AW: Tabellenblätter löschen

21.07.2015 17:08:37

stef26
AW: Tabellenblätter löschen

21.07.2015 16:55:34

Michael

AW: Tabellenblätter löschen

21.07.2015 16:54:15

Daniel

dim ws as Worksheet
for each ws in ActiveWorkbook.Worksheets
if ws.Name like "diff*" or ws.Name like "Tab*" then
if Worksheetfunction.CountA(ws.cells.usedrange) = 0 then
if ActiveWorkbook.Worksheet.Count > 1 then ws.Delte
end if
end if
next

Gruß Daniel

AW: Tabellenblätter löschen

21.07.2015 17:08:37

stef26

Super
Besten Dank !!!!!!!!
:-)
Stefan

AW: Tabellenblätter löschen

21.07.2015 16:55:34

Michael

Hallo Stefan!
zB so (in einem allgemeinen Modul):

Sub BlaetterWeg()
Application.DisplayAlerts = False
For Each Blatt In ThisWorkbook.Worksheets
If Blatt.Name Like "diff*" Or _
Blatt.Name Like "Tab*" Then
Blatt.Delete
ElseIf Blatt.UsedRange.Rows.Count = 1 And _
Blatt.UsedRange.Columns.Count = 1 And _
Blatt.Cells(1, 1).Value = "" Then
Blatt.Delete
End If
Next
Application.DisplayAlerts = True
End Sub

Die Überprüfung ob ein Blatt "leer" ist bezieht in diesem Fall aber keine Kommentare oder sonstige Dinge ein, sondern nur leere Zellen.
Lg
Michael