Vermenigvuldigen

[Calle69]

Hey iedereen,

ik heb een vraagske.
Ik heb een excel bestand waar dit instaat:
01_02.NI_RS01_2006 12
01_01.NI_RS02_2006 1
01_03.NI_RS03_2006 12
03_99.NI_RS10_2006 4
03_10.NI_RS11_2006 12
03_99.NI_RS12_2006 1
03_03.NI_RS13_2006 12
03_10.NI_RS14_2006 1
05_10.NI_RS20_2006 12
13_05.NI_RS30_2006 1
13_99.NI_RS31_2006 1
13_10.NI_RS32_2006 1
13_05.NI_RS33_2006 1
13_10.NC_RS34_2006 1
13_99.II_RS35_2006 1
13_99.NI_RS36_2006 1
13_02.NI_RS37_2006 1
13_99.NI_RS38_2006 1
13_10.NI_RS39_2006 1
13_10.NI_RS40_2006 1
13_10.NI__RS41_2006 1
13_99.NI_RS42_2006 1
15_99.NI_RS50_2006 1
15_10.NI_RS51_2006 1
15_99.NC_RS52_2006 1
15_10.NI_RS53_2006 1
06_02.NI_RS60_2006 1

De eerste kolom is A
De tweede kolom is B

Nu zou in Kolom C, 01_02.NI_RS01_2006 12 keer onder elkaar moeten komen met een formule, en daaronder het aantal keren het 2de met zijn aantal enzo door

Weet iemand hier een formule voor aub?

Resultaat moet zo worden dan:
01_02.NI_RS01_2006
01_02.NI_RS01_2006
01_02.NI_RS01_2006
01_02.NI_RS01_2006
01_02.NI_RS01_2006
01_02.NI_RS01_2006
01_02.NI_RS01_2006
01_02.NI_RS01_2006
01_02.NI_RS01_2006
01_02.NI_RS01_2006
01_02.NI_RS01_2006
01_02.NI_RS01_2006
01_01.NI_RS02_2006
....

Bedankt

 

[Calle69]

Heeft iemand soms een idee?
Marco ofzo ... (weet hier niets over)
Bedankt

 

[Wigi]

Ongetwijfeld een macro, maar zoiets is niet direct geschreven hoor...

 

[Hans123]

Zoiets ?

 

[Wigi]

Bedankt Hans.

Ik heb jouw code herschreven:

Sub vermenigvuldigen()
Dim rij As Long
Dim tekst As String
Dim aantal As Integer
Dim doel_rij As Long
    Range("C:C").ClearContents
    doel_rij = 1
    For rij = 1 To Range("A" & Rows.Count).End(xlUp).Row
        aantal = Cells(rij, 2)
        If aantal Then
            Cells(rij, 1).Copy Cells(doel_rij, 3).Resize(aantal)
            doel_rij = doel_rij + aantal
        End If
    Next rij
End Sub

Had maar 1/3 van de tijd van jouw code nodig.

Groeten

Wigi