Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1812to1816
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
Inhaltsverzeichnis

Prüfen ob Zellen leer sind

Prüfen ob Zellen leer sind
23.02.2021 20:32:54
Hermann
Sehr geehrte Excel-Fangemeinde,
Vorab erst mal die besten Grüße aus dem stock finsteren Arnum.
Ich bräuchte mal eine Unterstützung in Bezug auf das Prüfen ob alle Zellen im rage leer sind.
Mein Versuch:
If WBZ.Worksheets("Zukauf").Range("A6:D9").SpecialCells(xlCellTypeBlanks).Count = 16 Then WBZ.Sheets("Zukauf").Delete
Funktioniert manchmal, jedoch manchmal auch nicht.
Leider kann ich das Problem ohne eure Hilfe nicht lösen.
Vielen dank schon mal im Voraus.
Gruß
Hermann

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Zellen leer sind
23.02.2021 20:58:32
Werner
Hallo,
so:
With WBZ.Worksheets("Zukauf")
If WorksheetFunction.CountBlank(.Range("A6:D9")) = 16 Then
Application.DisplayAlerts = False
.Delete
End If
End With
Gruß Werner
AW: Prüfen ob Zellen leer sind
23.02.2021 21:03:29
GerdL
Moin,
probier mal, wenn die Zellen "frisch" sind.
Sub Unit()
With WBZ.Worksheets("Zukauf").Range("A6:D9")
.Value = .Value
If .SpecialCells(xlCellTypeBlanks).Count = 16 Then
Application.DisplayAlerts = False
.Parent.Delete
Application.DisplayAlerts = True
End With
End Sub
Gruß Gerd
AW: Prüfen ob Zellen leer sind
24.02.2021 18:08:47
Hermann
Vielen Dank Werner und Gerd für die schnelle Hilfe.
da wäre ich nie drauf gekommen
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
24.02.2021 19:02:51
Werner

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige