automatisch nummeren

[JPG]

Hallo,

Kan er mij iemand helpen met de macro-code voor het automatisch plaatsen van nummers naast elkaar op een werkblad - de nummers dienen gescheiden te zijn door een tab
Voorbeeld
(tab)1 (tab) 2 enz.
Uiteindelijk zie je dus:
1 2 3 .....

Het zal hier wel een for-next lus zijn maar ik ben helemaal niet thuis in het opstellen van macro's
Het einde van de lus maakt niet uit - bv 100 (deze kan ik dan wel zelf aanpassen)
Alvast bedankt.

 

[E v R]

gescheiden door een TAB of steeds in de volgende cel?

aanzetje

Sub JPG_Tab()
    Dim x        As Long, y As String
    For x = 1 To 20
        y = y & x & vbTab
    Next
    MsgBox y
    Sheets(1).Cells(1, 1).Value = y
End Sub

 

[JPG]

Bedankt maar ...

Hallo Eric,

Vooreeerst bedankt voor je snelle en prima reactie - maar ....
ik was vergeten te vermelden dat ik de macro in Word wil gebruiken.
Nu heb ik de regel
Sheets(1).Cells(1, 1).Value = y
weg gelaten.
Het programma telt nu mooi tot 20 maar dit staat in een apart venstertje bovenop mijn Word-werkblad en wanneer ik op OK druk in dat venster is alles weg.
Uiteraard had ik graag de nummers op mijn Word-werkblad gekregen.
Kan je mij nog even verder helpen a.u.b.

Bedankt
Mvg,
JP

 

[E v R]

oops word, dat is niet echt mijn ding...

zoiets:?

Sub JPG_Tab()
    Dim x        As Long, y As String
    For x = 1 To 20
        y = y & x & vbTab
    Next
       Selection.Text = y
End Sub

 

[JPG]

Prima

Hallo,

Ja - fantastisch !

Heel erg bedankt :thumb:

Mvg,
JP