Microsoft Excel

Herbers Excel/VBA-Archiv

Prüfen ob Zellen leer sind

Betrifft: Prüfen ob Zellen leer sind von: Hermann
Geschrieben am: 23.02.2021 20:32:54

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

Betrifft: AW: Prüfen ob Zellen leer sind
von: Werner
Geschrieben am: 23.02.2021 20:58:32

Hallo,

so:
With WBZ.Worksheets("Zukauf")
    If WorksheetFunction.CountBlank(.Range("A6:D9")) = 16 Then
        Application.DisplayAlerts = False
        .Delete
    End If
End With
Gruß Werner

Betrifft: AW: Prüfen ob Zellen leer sind
von: GerdL
Geschrieben am: 23.02.2021 21:03:29

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

Betrifft: AW: Prüfen ob Zellen leer sind
von: Hermann
Geschrieben am: 24.02.2021 18:08:47

Vielen Dank Werner und Gerd für die schnelle Hilfe.

da wäre ich nie drauf gekommen

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T.
von: Werner
Geschrieben am: 24.02.2021 19:02:51