Set met 9 dezelfde letters en het cijfer van 1 t/m 9

[gertvn]

Beste forum leden,

Ik moet een lijst genereren waarbij een deel van het nummer/letter reeks wisselend is en telkens oploopt per 9 dezelfde letters en dan de cijfers 1 t/m 9

In het bestand zie je wat de bedoeling is in kolom A staat het nummer, en kolom B & E is het vaste deel.
In kolom C staat het alfabet 9 keer de "A" en 9 keer "B" ect en in kolom D staan de cijfer van 1 t/m 9.
Dit deel zet ik er handmatig in maar zou graag dat dit per 9 stuks automatisch door loopt dus A1 A2 A3 A4 A5 A6 A7 A8 A9 B1 B2 ect,

Als ik deze set klaar heb en als ik weer een nieuwe set aanmaak dan begint de wisselende tekst weer bij F1, het zou mooi zijn als ik dan weer met een nieuw basis Excel bestand kan werken zodat ik niet elke keer het stuk dat ik nodig heb er tussen uit hoef te knippen

Ik hoop dat iemand hiermee kan helpen ..

Alvast bedankt

 

[JEC.]

Ik weet niet wat je bedoelt met steeds een nieuwe set, je kunt beter alles in 1 bestand houden

Als je deze in C2 zet en doortrek

=TEKEN(INTEGER((RIJ(A1)-1)/9)+65)

En deze in D2

=REST(RIJ(A1)-1;9)+1

Voor office 365 in ene

=TEKEN(INTEGER((REEKS(AANTALARG(A2:A500);;0)/9)+65))

=REST(REEKS(AANTALARG(A2:A500);;0);9)+1

 

[gertvn]

Best JV

Die is precies wat ik zoek, bedankt.

Ik wilde graag aparte Excel bestanden, omdat ik dan kan bij houden wanneer welke nummerreeks is aangemaakt (gebeurd vaak maar 2 keer per jaar) maar met deze oplossing kom ik er ook mee:thumb:

Nogmaals bedankt

Ik weet niet wat je bedoelt met steeds een nieuwe set, je kunt beter alles in 1 bestand houden

Als je deze in C2 zet en doortrek

=TEKEN(INTEGER((RIJ(A1)-1)/9)+65)

En deze in D2

=REST(RIJ(A1)-1;9)+1

Voor office 365 in ene

=TEKEN(INTEGER((REEKS(AANTALARG(A2:A500);;0)/9)+65))

=REST(REEKS(AANTALARG(A2:A500);;0);9)+1

 

[snb]

In VBA:

Sub M_snb()
   Cells(2, 8).Resize(234) = [index(Substitute(A2,"A1",char(65+int((row(1:234)-1)/9)) & mod(row(1:234)-1,9)+1),)]
End Sub

of

Sub M_snb()
   Cells(2, 10).Resize(234) = [index(Substitute(A2,"A1",address(mod(row(1:234)-1,9)+1,int((row(1:234)-1)/9)+1,4)),)]
End Sub