Blatt löschen wenn ...

• Blatt löschen wenn ... von geri vom 29.10.2003 20:56:03
  • AW: Blatt löschen wenn ... - von ChrisL am 29.10.2003 21:07:07
    • besten Dank es funktioniert o.T - von geri am 29.10.2003 21:15:00

Betrifft: Blatt löschen wenn ...
von: geri
Geschrieben am: 29.10.2003 20:56:03
Hallo Excelianer

Frage ist es möglich mit VBA Blatt/Blätter in Mappe
löschen WENN im Blatt oder Blätter Spalte A1:A50 leer, Blätteranzahl ist variabel

Danke

gruss geri

Betrifft: AW: Blatt löschen wenn ...
von: ChrisL
Geschrieben am: 29.10.2003 21:07:07
Hi Geri

Option Explicit

Sub BlätterLöschen()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
If WorksheetFunction.CountBlank(WS.Range("A1:A50")) = 50 Then
Application.DisplayAlerts = False
WS.Delete
Application.DisplayAlerts = True
End If
Next WS
End Sub

Gruss
Chris

Betrifft: besten Dank es funktioniert o.T
von: geri
Geschrieben am: 29.10.2003 21:15:00
.