Loop om cellen te vullen

[Demeter]

Ik wil graag in de 1e cel van iedere rij die ik vanaf cel 3 vul een formule plaatsen.

de code tot nu toe is:

Sub Celvullen()

Dim c As Range
Dim laatsterij As Long
Dim i As Integer

laatsterij = Range("A65536").End(xlUp).Row

For i = 0 To 75
For Each c In Range("C3", Range("A" & laatsterij))
If c > 0 Then
c.Offset(0, -2) = i + 1
End If
Next
Range("A1:B1").Select
End Sub

Deze zoekt in het bereik tussen c3 en laatste cel naar een gevulde cel, als dit waar is dan wordt de eerste cel van deze regel gevuld met het regel (A3 is dan 1, A4 is dan 2, etc zolang het beik vanaf C3 gevuld is).

Heb iedere keer wwer dezelfde problemen met een loop, kan iemand mij hier mee helpen en / of mij wijzen op een goed naslagwerk hierover?


Bijvoorbaat dank,
Ferenc

 

[Wigi]

Ik ben helemaal niet zeker, maar ik denk dat je dit bedoelt:

Sub Celvullen()

Dim c As Range
Dim laatsterij As Long
Dim i As Integer

laatsterij = Range("A65536").End(xlUp).Row

'For i = 0 To 75   laat dit weg
i = 0
For Each c In Range("C3", Range("C" & laatsterij))  'bij jou stond er "A" & laatsterij
If c > 0 Then
i = i + 1
c.Offset(0, -2) = i
End If
Next
Range("A1:B1").Select
End Sub

Klopt het?

Wigi

 

[Demeter]

Oehhhhh yeah

Dank je wel Wigi. Thumbs up fo you.

werkt weer als een trein.

Groet,
Ferenc