Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige