VBA for next loop en vewijzen naar een cel

[anoniem]

Ik ben maar een hele primitieve programeur in VBA maar zit vast met een for next lus. Ik wil graag naar cel C1 lopen en dan daar nummer 1-31 laten afdrukken maar als ik dit probeer dan drukt ie dat steeds af vanaf A1. Hoe kan dat? Volgende regels gebruikt ....... Sub Insertnumbers() If Range("A1") = "January" Then ActiveCell = ("C1") For i = 1 To 31 Cells(i, 1) = i Next i Else: MsgBox "fout" End If End Sub Bedankt voor de hulp!

[anoniem]

[quote:179dc8a3f5="markPEDD"]Ik ben maar een hele primitieve programeur in VBA maar zit vast met een for next lus. Ik wil graag naar cel C1 lopen en dan daar nummer 1-31 laten afdrukken maar als ik dit probeer dan drukt ie dat steeds af vanaf A1. Hoe kan dat? Volgende regels gebruikt ....... Sub Insertnumbers() If Range("A1") = "January" Then ActiveCell = ("C1") For i = 1 To 31 Cells(i, 1) = i Next i Else: MsgBox "fout" End If End Sub Bedankt voor de hulp![/quote:179dc8a3f5] Het gaat "fout" bij deze regel:[code:1:179dc8a3f5]Cells(i, 1) = i[/code:1:179dc8a3f5]Wat er hier gebeurt: De cel in rij i, kolom 1 wordt gevuld met de waarde van i. Kolom 1 is: kolom A.... Wat jij wil is dit: De cel in rij i, kolom 3 (= kolom C) krijgt de waarde van i. Dus de oplossing is: vervang Cells(i,1) door Cells(i,3). Succes.

[anoniem]

Tja wat kan het leven toch simpel zijn :D Dan maar meteen de volgende vraag die me te binnen schiet wat als je nu niet in cel C1 de rij wil laten starten maar in C6. Hoe defineer je dat dan? Of is dat nu weer niet zo simpel? Grt Mark

[anoniem]

[quote:d47b9e8aa1="markPEDD"]wat als je nu niet in cel C1 de rij wil laten starten maar in C6. Hoe defineer je dat dan? Of is dat nu weer niet zo simpel? [/quote:d47b9e8aa1] Dat is net zo simpel :wink: Begin i gewoon bij 6:[code:1:d47b9e8aa1]For i = 6 to 36[/code:1:d47b9e8aa1]

[anoniem]

Tja das inderdaad simpel haha. Harstikke bedankt voor de hulp. Ik ga het toepassen en ff veder knutselen. Deze zal ik alvast niet meer vergeten. Mark