Macro: kopieren waarde x aantal keer

[XcelMan]

Hallo iedereen,

Ik ben druk bezig om mijn VBA op peil te krijgen, maar loop met iets simpels vast:

Ik heb een sheet met in kolom nr. 1: gegevens en wil deze een 'x' aantal keer laten kopieren (x = staat in de volgende kolom nr. 2) in een andere sheet.

Hoe kan ik dit in een macro verwerken?

Alvast ontzettend bedankt voor het helpen van deze macro/VBA nieuweling !!!

 

[Demeter]

Wat heb je zelf al aan code? zie nl niks in je voorbeeld bestand.

 

[Demeter]

Kon het niet laten.
Kijk hier eens naar:

Sub kopieeren()
Dim c As Range
Dim i, j, legeregel, laatsteregel As Integer

laatsteregel = Sheets(1).Range("A65536").End(xlUp).Row

    For Each c In Sheets(1).Range("A2:A" & laatsteregel)
        If c <> "" Then
            j = Range("B" & c.Row).Value
            legeregel = Sheets(2).Range("A65536").End(xlUp).Row + 1
            For i = 1 To j
                Sheets(2).Range("A" & legeregel) = c.Value
                legeregel = legeregel + 1
            Next i
        End If
    Next c

End Sub

 

[XcelMan]

Hij werkt goed in bovenstaand testbestandje
Ik ga hem snel uitproberen in mijn eigen bestand!

Dank je wel!