Alle sichtbaren leeren Zellen zählen

[fiasko]

Hallo zusammen,

ich muss in einer Exceldatei, in der einige Spalten ausgeblendet wurden, alle Zellen zählen die sichtbar und leer sind.
Komme mir den - für mich - üblichen Verdächtigen (Anzahl2, Zählenwenn, Teilergebnis, ...) leider nicht weiter.
Vielleicht habt ihr einen Tipp für mich.
Vielen Dank

Gruß Felix

[Klaus-Dieter]

Hallo Felix,

in der Datei, oder in einem definierten Listenbereich? Eventuell hilft die Funktion LEEREZELLENZÄHLEN.

[fiasko]

Hallo Klaus-Dieter,

es geht um einen definierten Listenbereich.
Bei ANZAHLLEEREZELLEN zählt er leider die ausgeblendeten Zellen mit.

Gruß Felix

[{Boris}]

Hi,

für ausgeblendete Spalten stellt Excel keine Bordmittel zur Verfügung.
Du kannst hilfsweise die Spaltenbreite mit ZELLE("width";A1) ermitteln und dann die leeren Zellen zählen.

Am Beispiel Spalten A:H:

Hilfszeile 2, A2:
=--(ZELLE("width";A1)>0)
nach rechts kopieren.

Die leeren Zellen in A1:H1 bekommst Du dann mit:

=SUMMENPRODUKT((A1:H1="")*A2:H2)


Achtung: Das Aus-/Einblenden der Spalten löst keine Neuberechnung der Formeln aus. Diese musst Du mit F9 dann jeweils manuell anstoßen.

[Gast 123]

---

Hallo

es gibt auch den Befehl  x = Range(xx).SpecialCells(xlVisible).Count  Vielleicht kannst du ja beide kombinieren und bekommst ein brauchbares Ergebnis.

mfg Gast 123

---

Ich habe es auf die Schnelle mal so getestet, so klappt es:

Code:

Sub Sichtbare_LeereZellen1()
Dim Leer As Long, NoVis As Long
    Leer = Range("B1:B14").SpecialCells(xlCellTypeBlanks).Count
    NoVis = Range("B1:B14").Rows.Count - Range("B1:B14").SpecialCells(xlCellTypeVisible).Count
    MsgBox Leer - NoVis
End Sub

[fiasko]

Hi,

für ausgeblendete Spalten stellt Excel keine Bordmittel zur Verfügung.
Du kannst hilfsweise die Spaltenbreite mit ZELLE("width";A1) ermitteln und dann die leeren Zellen zählen.

Am Beispiel Spalten A:H:

Hilfszeile 2, A2:
=--(ZELLE("width";A1)>0)
nach rechts kopieren.

Die leeren Zellen in A1:H1 bekommst Du dann mit:

=SUMMENPRODUKT((A1:H1="")*A2:H2)


Achtung: Das Aus-/Einblenden der Spalten löst keine Neuberechnung der Formeln aus. Diese musst Du mit F9 dann jeweils manuell anstoßen.

Hallo Boris,

super, das klappt
Vielen Dank

Gruß Felix

---

---

Hallo

es gibt auch den Befehl  x = Range(xx).SpecialCells(xlVisible).Count  Vielleicht kannst du ja beide kombinieren und bekommst ein brauchbares Ergebnis.

mfg Gast 123

---

Ich habe es auf die Schnelle mal so getestet, so klappt es:

Code:

Sub Sichtbare_LeereZellen1()
Dim Leer As Long, NoVis As Long
    Leer = Range("B1:B14").SpecialCells(xlCellTypeBlanks).Count
    NoVis = Range("B1:B14").Rows.Count - Range("B1:B14").SpecialCells(xlCellTypeVisible).Count
    MsgBox Leer - NoVis
End Sub

Hallo Gast,

vielen Dank.
Leider übersteigt dein Lösungsvorschlag meine Excel-Kenntnisse  

Gruß Felix