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
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
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.