Herbers Excel/VBA-Archiv

Nur leere Tabellen löschen

• Nur leere Tabellen löschen von Jochen vom 29.08.2004 13:39:23
• AW: Nur leere Tabellen löschen - von Franz Pölt am 29.08.2004 14:08:34
  • AW: Nur leere Tabellen löschen - von Jochen am 29.08.2004 15:03:58

Betrifft: Nur leere Tabellen löschen von: Jochen
Geschrieben am: 29.08.2004 13:39:23

Hallo an alle,

wie kann ich alle Tabellen löschen, die leer sind. Dabei sollen nicht nur
Zellen sondern auch Grafikobjekte berücksichtigt werden. Finde da keinen
Ansatz, wie ich das abfragen kann.

Schönen Sonntag Jochen

Betrifft: AW: Nur leere Tabellen löschen von: Franz Pölt
Geschrieben am: 29.08.2004 14:08:34

Hallo Jochen,

probier mal das:

Sub DelEmptyTabs()
  Dim lngCounter    As Long
  Dim wks           As Worksheet
  Application.DisplayAlerts = False
  For Each wks In ActiveWorkbook.Worksheets
    With wks
      lngCounter = 0
      On Error Resume Next
      lngCounter = .Cells.SpecialCells(xlCellTypeConstants).Count
      lngCounter = lngCounter + .Cells.SpecialCells(xlCellTypeAllFormatConditions).Count
      lngCounter = lngCounter + .Cells.SpecialCells(xlCellTypeAllValidation).Count
      lngCounter = lngCounter + .Cells.SpecialCells(xlCellTypeComments).Count
      lngCounter = lngCounter + .Cells.SpecialCells(xlCellTypeConstants).Count
      lngCounter = lngCounter + .Cells.SpecialCells(xlCellTypeFormulas).Count
      lngCounter = lngCounter + .OLEObjects.Count
      lngCounter = lngCounter + .Shapes.Count
      If lngCounter = 0 Then .Delete
    End With
  Next
  Application.DisplayAlerts = True
End Sub

Servus aus dem Salzkammergut
Franz




Betrifft: AW: Nur leere Tabellen löschen von: Jochen
Geschrieben am: 29.08.2004 15:03:58

Hallo Franz,

das ist schon ganz gut, leider werden mir auch Blätter gelöscht, wo die Zellen keine
Inhalte haben aber Rahmen. Geht das auch noch irgendwie zu machen?

Gruß Jochen

Beiträge aus den Excel-Beispielen zum Thema "Nur leere Tabellen löschen"