macro formule

[Etienne1978]

Hallo,

Ik heb een bestand met meerdere tabbladen. Nu wil ik dat (middels een macro) hij op ieder tabblad het aantal regels gaat tellen
en mij de uitkomst in cel J1 zet. Kolom a t/m i zijn ingevuld. op ieder tabblad zijn het een verschillend aantal regels.
als macro formule heb ik:


Dim intaantalrijen As Integer
Dim i As Integer
Dim currentcell As Range

Range("a2").Select
intaantalrijen = ActiveCell.CurrentRegion.Rows.Count

For i = 1 To intaantalrijen
For Each currentcell In Selection.Cells
If currentcell.Value = Empty Then
ActiveCell.Offset(1, 0).Select
Else
Range("J2") = 1
End If

Sheets("blad2").Select
ActiveCell.Offset(1, 0).Select


Next currentcell
Next i

Met deze formule wil ik bereiken dat mocht kolom a zijn ingevuld hij in kolom j een 1 zet. En vervolgens met een som formule alle 1-nen bij elkaar op laten tellen en de uitkomst zichtbaar laten worden in cel J1. Op zich werkt de formule alleen (en dat snap ik) zet hij in cel J2 een 1 en vervolgens nergens meer. Hoe kan ik ervoor zorgen dat hij in iedere cel in J een 1 zet als kolom a is ingevuld.

Mocht iemand ander fomules hebben hoor ik dat ook graag.

Alvast bedankt

Etienne

 

[Niels28]

Ik snap niet wat je precies wilt maar dit is wat ik eruit haal.

Sub aantal_rijen()
For Each sh In ThisWorkbook.Sheets
sh.Range("J1").Value = sh.Range("A:A").SpecialCells(2).Count
Next
End Sub

Niels