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