Rijen in gelijk aantal verdelen

[Pelkmac]

Beste forumleden,

Ik heb een excelbestand met 1888 rijen. Dit bestand wordt regelmatig gegenereerd uit een ander programma en het aantal rijen kan dan gewijzigd zijn.
Ik wil graag dat Excel het aantal rijen automatisch in 16 gelijke delen maakt
(1888/16=118 rijen). Aan elk van de 16 delen moet een getal van 1 t/m 16 worden toegekend in de kolom week. Nu kan ik met autofilter op week filteren en zo over een periode van16 weken heel het bestand beoordelen.

Ik werk met Office 2003.
Bijgevoegd een fictieve tabel met het beoogde eindresultaat.

Bij voorbaat dank.

 

[HSV]

Bedoel je het zo?
Even voor proef in kolom G.

Sub tst()
 Dim i As Integer, j As Integer
  For i = 1 To 16
    For j = 1 To 118
   Cells(Rows.Count, 7).End(xlUp).Offset(1) = j
  Next j
 Next i
End Sub

Of:

Sub tst2()
 Dim i As Integer
    For i = 1 To 118
   Cells(Rows.Count, 8).End(xlUp).Offset(1).Resize(118) = i
  Next i
End Sub

 

[Pelkmac]

Dag Harry,

Code 2 doet wat ik wil.
ik ben er achter hoe je in de code de juiste kolom en het aantal rijen instelt.

vriendelijk bedankt voor de inzet.

ik sluit de vraag.