Doornummeren

[Abyss]

Hoi,

ik heb een klein vraag stukje

Ik wil sticker maken met oplopende nummers, deze nummer bestaan vervolgens weer uit subnummers. deze subnummers varieren van 1 tot 150. Dus één nummer kan uit max 150subnummers bestaan.

voorbeeld
ik zet in kolom A2, 1500 dit nummer bestaat ui 15 subnummers. dus 1500-001 t/m 1500-010.
15 zet ik dan in cel B2

Het subnummer 15 zet ik dus in Cel B2 nu zou ik graag in C2 een formule neer zetten die kijkt naar A2 en B2. als ik deze formule naar beneden door trek zou hij een lijstje moeten genereren van 1500-001 t/m 1500-10
In kolom A zet ik overigens nog meer nummers
zo bestaan 1501 uit 6 subnummers


Ik heb er een kein voorbeeldje bijgedaan in Excel 2003
in kolom C staat het resultaat hoe Excel dit zou moeten genereren.

Ik hoop dat er iemand is die dit voor mij kan oplossen.

Bekijk bijlage doorrekeken.xls

 

[Cobbe]

Met een formule zie ik dit nog niet direct gebeuren (kan me vergissen natuurlijk hé).
Maar met een klein beetje VBA loopt dat als een trein:

Sub hernummeren()
For Each cl In Range("A2:A" & Range("A65500").End(xlUp).Row)
        For nummering = 1 To cl.Offset(, 1)
            Cells(Range("F65500").End(xlUp).Row + 1, 6) = cl & "-" & Format(nummering, "000")
        Next
Next
End Sub

 

[Abyss]

[opgelost]

Super geweldig , heel erg bedankt.:thumb::thumb::d

 

[paulva]

Te laat , maar misschien hebben jullie iets aan de oplossing in formulevorm:
Bekijk bijlage doorrekekenPaul.xlsx
Ik geef toe dat het met vba beter is. :thumb:

 

[Abyss]

Hoi Paulva,

zo'n formule had ik al eerder, maar op de een of andere manier werkt dat bij mij niet.
Als ik het sub aantal aanpas rekent hij dit niet goed door.
ook een beetje fout gevoeliger.

Maar toch vriendelijk bedankt voor het meedenken.:thumb: