Leere Zellen / gefüllte Zellen in eniem Range zählen (XL97)

17/06/2009 - 10:52 von Eric March | Report spam
Moin, Moin!
Irgendwie habe ich ein Brett vorm Kopf. Es muss doch eine elegantere
Lösung geben die Anzahl aller Zellen mit Inhalt innerhalb eines Ranges
zu ermitteln. Entweder als direkter Output oder im Sinne von Gesamtzahl
minus leere Zellen.

Dim Zelle As Range
Dim I As Integer
I = 0
For Each Zelle In Selection
If Zelle <> "" Then I = I + 1
Next
MsgBox Selection.Count & " insgesamt" & vbCr & vbCr & I & " mit Inhalt"
End Sub

Hier ist der Range zwar eine Selection, aber das wàre die geringste Sorge.

Eric March

Kenne die Vergangenheit. In der Unwissenheit über die Vergangenheit
liegt das Verderben der Zukunft.
"Die Geschichte ist der beste Lehrmeister - mit den unaufmerksamsten
Schülern." Indira Gandhi
 

Lesen sie die antworten

#1 Claus Busch
17/06/2009 - 11:00 | Warnen spam
Hallo Eric,

Am Wed, 17 Jun 2009 10:52:11 +0200 schrieb Eric March:

Es muss doch eine elegantere
Lösung geben die Anzahl aller Zellen mit Inhalt innerhalb eines Ranges
zu ermitteln. Entweder als direkter Output oder im Sinne von Gesamtzahl
minus leere Zellen.



reicht dir nicht die Formellösung?
Zellen mit Inhalt im Bereich A1:A25:
=ANZAHL2(A1:A25)
Leere Zellen im gleichen Bereich:
=ANZAHLLEEREZELLEN(A1:A25)


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP1
Office 2003 SP3 / 2007 Ultimate SP2

Ähnliche fragen