Herhaling enof lussen

Status
Niet open voor verdere reacties.

ExcelTonnie

Gebruiker
Lid geworden
5 jul 2016
Berichten
276
Even een vraagje!

Hoe kan ik cellen herhaald vullen en dan telkens 4 posities opschuiven.
TxtST1 op A1 en vervolgens TxtST2 op A5 enz t/m de 35 dus.

Code:
Sub herhalen()
For S = 1 To 35
A = "TxtST" & S
Cells(1, 1).Value = A
Next S
End Sub
 
Je bedoelt zoiets?
Code:
Sub herhalen()
    For s = 1 To 35 Step 4
        i = i + 1
        Cells(s, 1).Value = "TxtST" & i
    Next s
End Sub
 
Laatst bewerkt:
Dat is precies wat ik bedoel.
Alleen Cells(S, 1).Value = "TxtST" & i heb ik even omgedraaid om deze over de kolommen te plaatsen.

Thx
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan