Microsoft Excel

Herbers Excel/VBA-Archiv

Nur leere Tabellen löschen

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"