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