Office: Wenn eine Zelle aus Bereich leer, dann

Hallo,

ich möchte eine Bedingung in VBA stellen, die beinhaltet:
Wenn eine der Zellen B7, E7, A20:C20, E20:G20 leer ist, dann Exit Sub.

Umständlich funktioniert es bereits, wenn ich nacheinander für jede Zelle diese Bedingung stelle:

If WS.Range("B7") = "" Then
Exit Sub
End If
If WS.Range("E7") = "" Then
Exit Sub
End If
If WS.Range("A20") = "" Then
Exit Sub
End If
undsoweiter...

Aber geht das nicht auch kürzer?

Beste Grüsse,
Udo

:)

 

Hi Udo,

probier mal so.

Dim rng As Range

Set rng = ActiveSheet.Range("B7, E7, A20:C20, E20:G20")

If Application.CountA(rng) < rng.Count Then

End If

 

Hallo Josef,

vielen Dank, das klappt bestens!

Grüsse Udo