Ich möchte wissen, ob alle Zellen innerhalb einer Markierung leer sind. Mein eigener Versuch geht nur dann, wenn nur eine einzige Zelle markiert ist:
If IsEmpty(Selection) = False Then MsgBox "voll" Else MsgBox "leer"
Ich möchte wissen, ob alle Zellen innerhalb einer Markierung leer sind. Mein eigener Versuch geht nur dann, wenn nur eine einzige Zelle markiert ist:
If IsEmpty(Selection) = False Then MsgBox "voll" Else MsgBox "leer"
Sub prüfen()
Dim rng As Range
For Each rng In Selection
If IsEmpty(rng) = False Then
MsgBox rng.Address & " ist voll"
Exit Sub
End If
Next rng
MsgBox "leer"
End Sub
liebe Grüsse
Urs
Die Funktion im Beispiel liefert wahr, wenn alle 40 Zellen im Bereich D1:E20 leer sind, ansonsten (naturgemäß;-))) FALSCH.
Gruß Boris
P.S.: Als Excel-Funktion: =ANZAHLLEEREZELLEN(D1:E20)
Gruß Boris
P.S.: Ist mir auch grad erst in den Sinn gekommen;-))