Tal fra en celle vises antal gange pga anden celle

Stå i ark1 og kør så koden, den skal i et kodemodul


Public Sub Labels()
    Dim Data As Variant, I As Integer, K As Integer, Col As Integer, Rw As Integer
    Data = ActiveSheet.Range("A1").CurrentRegion
    Col = 0
    Rw = 1
    For I = 1 To UBound(Data, 1)
        For K = 1 To Data(I, 2)
            Col = Col + 1
            If Col = 6 Then
                Col = 1
                Rw = Rw + 1
            End If
            Worksheets("Ark2").Cells(Rw, Col) = Data(I, 1)'ret Ark2 til dit labelsark

        Next
    Next
End Sub

Og et kodemodul er det det samme som en macro? det kan jeg ikke få til at virke

Hent eksempel her

http://gupl.dk/716592/

Fedt det ser helt rigtig ud..... Men jeg kan vel ikke få dig til at lave den på min. Ark (serie 47) Række "H"tallet og række "G" for stk... Point til dig.... og jeg takker helt vild...... Det er noget dem der sidder med det normalt har sagt ikke kunne lade sig gøre så fedt....
http://gupl.dk/716595/

på et nyt ark :)

Her oprettes et nyt ark, som navngives "Labels", hvis det findes når makroen startes, slettes det og et nyt skabes.

Public Sub Labels()
    Dim Data As Variant, I As Integer, K As Integer, Col As Integer, Rw As Integer
    RK = Worksheets("Serie 47").Range("G1").End(xlDown).Row
    Data = Worksheets("Serie 47").Range("G1:H" & RK)
    Col = 0
    Rw = 1
    Application.DisplayAlerts = False
    On Error Resume Next
    Worksheets("Labels").Delete    ' advarsel for sletning undertrykkes
    Application.DisplayAlerts = True
    On Error GoTo 0
    Sheets("Plan").Select
    Worksheets.Add
    ActiveSheet.Name = "Labels"

    For I = 2 To UBound(Data, 1)
        For K = 1 To Data(I, 1)
            Col = Col + 1
            If Col = 6 Then
                Col = 1
                Rw = Rw + 1
            End If

            Worksheets("Labels").Cells(Rw, Col) = Data(I, 2)    'ret Ark2 til dit labelsark

        Next
    Next
End Sub

OHHHH det virker ikke lige men prøver lige lidt mere.......;) TAK

http://gupl.dk/716597/

Har prøve at ligge det over i din.... Kan jeg på en nem måde lave så alle celler der starter med 1 rød,
2 gul, 3 blå, 4 blå, 5 hvid.... Jeg har lavet det 1rød i en celle, med kan jeg ikke lave det over flere på engang

Jeg arbejder desværre kun i Excel 2003 herhjemme, så jeg kan ikke

Ok men tak for din hjælp

Den fil af min du har lavet hvor er "knappen" ??

den  må du selv lave, jeg vidste ikke hvor den må sidde

ok takker... super godt... Du har været en kæmpe hjælp....