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
Hallo Felix,
in der Datei, oder in einem definierten Listenbereich? Eventuell hilft die Funktion LEEREZELLENZÄHLEN.
Hallo Klaus-Dieter,
es geht um einen definierten Listenbereich.
Bei ANZAHLLEEREZELLEN zählt er leider die ausgeblendeten Zellen mit.
Gruß Felix
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
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
(26.01.2022, 10:28){Boris} schrieb: [ -> ]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
(26.01.2022, 10:28)Gast 123 schrieb: [ -> ]
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