Anzahl der leeren Zellen innerhalb eines Bereiches ermitteln

Mit dem Makro leere_zellen_ermitteln wird die Anzahl aller leeren Zellen im selektierten Bereich ermittelt und mittels einer MsgBox angezeigt.

Sub leere_zellen_ermitteln()
leer = 0
For Each Zelle In Selection
If Zelle.Value = "" Then
leer = leer + 1
End If
Next Zelle
MsgBox "Es gibt " & leer & " leere Zellen im selektieren Bereich."
End Sub


Über eine For-Nexe-Schleife wird die Variable leer bei jeder leeren Zelle im selektierten Bereich um den Wert 1 erhöht.