Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blatt löschen wenn ...

Forumthread: Blatt löschen wenn ...

Blatt löschen wenn ...
29.10.2003 20:56:03
geri
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt löschen wenn ...
29.10.2003 21:07:07
ChrisL
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
Anzeige
besten Dank es funktioniert o.T
29.10.2003 21:15:00
geri
.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige