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

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

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
besten Dank es funktioniert o.T
29.10.2003 21:15:00
geri
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige