Cellen in D4 t/m D53 automatisch selecteren met VBA

[VBA1]

Hallo allemaal,

Daar ben ik weer, als de volgende vraag is beantwoord, ben ik ver klaar.

Ik wil graag een procedure die de cellen van D4 t/m D53 automatisch één voor één selecteerd, zodat de waarden in de Cellen van de F kolom verspringen (dat werkt al)

Public Sub Selecteren()
       Dim Teller As Integer
       
       For Teller = 4 To 53
            Range("D" & Str(Teller)).Select
       Next Teller
End Sub

Deze code werkt niet.

Ik ben heel dankbaar voor een suggestie...

Groetjes

 

[huijb]

Je geeft zelf al aan dat het VBA is, dus verplaatst naar VBA sectie.

 

[Elsendoorn2134]

VBA1 (De namen worden steeds korter)

De functie Str(teller) geeft als resultaat " 4", dus met een spatie ervoor. Aangezien het programma de Range("D 4") niet kan
vinden geeft hij een foutmelding. Houdt het gewoon op Range("D" & Teller).Select dan zal je code werken.
Ik weet trouwens niet wat de code moet doen want hij loopt gewoon door van D4 naar D53 en stopt daar dan verder niets.

Veel Succes.

 

[VBA1]

Ik heb de oplossing al gevonden, ik werk nu met Cells in plaats van Range en dan kun je veel makkelijker met variabelen werken.