zählenwenn Marko
06.04.2006 22:00:33
Marco
habe eine aufgezeichnete Formel abgeändert, um die nichtleeren Zeilen in Spalte A zu zählen, aber irgendwie läuft es nicht. Vielleicht habt ihr eine Idee.
Hier der Code:
Sub test()
Dim anz As Integer
anz = Cells(1, 1).FormulaR1C1 = "=COUNTIF(C[],""<>"""""")"
MsgBox "Anzahl: " & anz
End Sub
Danke für Eure Hilfe
Marco
Anzeige