Excel, kolom A aantal (3) kolom B tekst (appel) in nieuw tabblad appel appel appel

[gertvn]

Beste medeforumleden

Ik heb een Excelbestand gekregen waarbij iemand in kolom A heeft staat hoeveel teksten hij wil hebben en kolom b staat de tekst.

Nu wil ik die teksten inlezen in de printer maar dan heb ik ipv bv 3 x appel de tekst 3x onder elkaar nodig dus:
appel
appel
appel

Als dit de enige tekst is, is het simpel maar het zijn bijna 2000 teksten met verschillende aantallen, dus ik hoop dat er een mogelijkheid is het aantal om te zetten naar teksten onder elkaar in 1 kolom?

Ik hoop dat het een duidelijk verhaal is.
Grt Gert

 

[Timshel]

Met formules is mogelijk maar een stukje code werkt waarschijnlijk het snelst:

Sub tsh()
    Dim i As Integer, j As Integer
    Dim Br
    
    Br = Sheets("Blad1").Cells(1).CurrentRegion
    With CreateObject("System.Collections.Arraylist")
        For i = 1 To UBound(Br)
            For j = 1 To Br(i, 1)
                .Add Br(i, 2)
            Next
        Next
        Sheets("Blad2").Cells(1, 1).Resize(.Count) = Application.Transpose(.ToArray)
    End With
End Sub

 

[AlexCEL]

Hier nog een voorbeeld met formules.

Bekijk bijlage lijst maken (AC).xlsx

 

[gertvn]

Beste Tim & Alex,

Hartelijk dan voor de snelle reactie, ik heb beide bestanden geprobeerd en die van Alex werkt goed, Tim ik zie in je script dat hij naar een ander tabblad verwijst maar die blijf leeg? Ik ben wel erg nieuwsgierig hoe deze werkt

Nogmaals bedankt voor jullie hulp

 

[Timshel]

ALT-F8 -> 'tsh' selecteren en Uitvoeren

 

[gertvn]

Beste Tim,

Zo makkelijk kan het zijn hartelijk dank ze werken alle twee super goed bedankt..