Wenn man die Anzahl nicht-leerer Zellen wissen will, dann reicht es einfach deis per Formel im Tabellenblatt zu ermitteln.
Formel: =ANZAHL2($H$2:$H$2000)
(diese kann man bei Bedarf dann nach unten ziehen)
Wenn das nur ausgegeben werden soll, wenn in Spalte E ein 'x' steht, dann:
Formel: =WENN($E2="x";ANZAHL2($H$2:$H$2000);"")
(diese wieder bei Bedarf nach unten ziehen)
Das ganze per VBA in einen Rutsch (für die Faulen):
Worksheets("Tabelle1").Range("$B$2:$B$2000").Formula = "=IF($E2=""x"",COUNTA($H$2:$H$2000),"""")"
Mir erschließt sich nur noch nicht warum bei dir der Bereich H2:H2000 gleich bleibt. Ein mal zählen reicht doch?
Gruß
|