Variabele in een formule toepassen

[mierl275]

Beste Mensen,

Ik probeer met behulp van een variabele een bepaalde cel te selecteren. De variabele noem ik "teller". Nu wil ik bijv. als teller 1 is cel A1 selecteren, als teller 2 is cel A2 etc. Aangezien dit me niet lukte, probeerde ik het via een verschuiving, ook zonder resultaat. Hieronder de code voor de laatste optie:

Sub Macro2()
'
' Macro2 Macro

'
Dim teller As Integer
teller = 1

While teller < 3
Range("offset(A1,teller,0)").Select
ActiveCell.Formula = (teller)
teller = teller + 1
Wend

end sub
wat doe ik fout???
(ben pas met VB begonnen, dus neem me niet kwalijk als het antwoord te erg voor de hand ligt)

Bedankt!

 

[hondel]

Je kunt "Cells" gebruiken.

Sub Macro2()

Dim teller As Integer

teller = 1

While teller < 3
Cells(teller, 1).Select
ActiveCell.Formula = (teller)
teller = teller + 1
Wend

End Sub

Succes

 

[mierl275]

Super, bedankt voor de snelle reactie

Mark

 

[Wigi]

Iets herschreven

Sub Macro2()

Dim teller As Integer

teller = 1

While teller < 3
     Cells(teller, 1).Value = teller
     teller = teller + 1
Wend

End Sub