Onderstaande macro gebruik ik om opvolgende tekst in cellen te plaatsen, echter mijn uitkomst is nu :
TEST009
TEST0010
enz.....
graag zou ik zien dat het
TEST009
TEST010
enz...
wordt, wie kan mij helpen. Alvast bedankt
TEST009
TEST0010
enz.....
graag zou ik zien dat het
TEST009
TEST010
enz...
wordt, wie kan mij helpen. Alvast bedankt
Code:
Sub TEST()
Dim iAantal As Integer
Dim StrG As Variant
Dim StrA As String
Dim I As Integer
iAantal = InputBox("Hoeveel stuks wil je aanmaken")
StrG = ActiveCell
StrA = InputBox("WELKE NAAM KRIJGT DE EERST CEL", , "TEST009")
For I = 0 To iAantal - 1
ActiveCell.Offset(I, 0) = StrA & CStr(I) ' tekst in cel
Next I
End Sub