Mit VBA alle Leeren Worksheets in Excelfile Löschen

schnibli · 10. Mai 2012, 16:42

Ich würde gerne mit Hilfe eines VBA-Codes alle leeren Tabellenblätte in einem Excelfile löschen,
kennt jemand eine gute lösung?

petaod · 10. Mai 2012, 19:42

Visual Basic-Quellcode

For Each sh in ThisWorkbook.Worksheets
If isEmpty(sh.UsedRange) Then sh.Delete
Next

Aber Achtung: UsedRange kann auch existieren, obwohl die Zellen leer scheinen, aber Formeln enthalten.

Wenn du auf leere Values prüfen willst:

Visual Basic-Quellcode

If sh.Cells.Find("*", sh.Cells(1, 1), xlFormulas, , xlByRows, xlPrevious) Is Nothing Then sh.Delete

schnibli · 11. Mai 2012, 07:35

Danke, ich habs nun so gelöst:

.Application.DisplayAlerts = False
For x = .Sheets.Count To 2 Step -1
If .WorksheetFunction.CountBlank(.Sheets(x).Cells) = 16777216 Then
.Sheets(x).Delete
End If
Next
.Application.DisplayAlerts = True

petaod · 11. Mai 2012, 18:16

schnibli schrieb:

If .WorksheetFunction.CountBlank(.Sheets(x).Cells) = 16777216 Then

Wird ab Office 2007 so nicht funktionieren.
Aber mach's wie du willst

schnibli · 12. Mai 2012, 11:23

ah, okey... Das wusste ich jetz nicht, danke

Mit VBA alle Leeren Worksheets in Excelfile Löschen

Mit VBA alle Leeren Worksheets in Excelfile Löschen

Visual Basic-Quellcode

Visual Basic-Quellcode

schnibli schrieb:

Ähnliche Themen

2 Benutzer haben hier geschrieben