0160-93 82 19 37 | Nehmen Sie 
Anzahl der leeren Zellen innerhalb eines Bereiches ermitteln
101055
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
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.
