Excel combinaties laten maken

[blmsth]

Hallo

Ik wil Excel combinaties laten maken van cellen in 3 kolommen.
Ik tracht het hier uit te leggen:
Kolom 1: A, B, C,... tot J
Kolom 2: L, R
Kolom 3: 1,2,3... tot 5

Excel moet uit elke kolom een waarde nemen. Een mogelijk combinatie = AL1. Een andere = AR3.

Hoe kan dit geautomatiseerd worden?

Thx
Tom

 

[Cobbe]

Test deze eens:

Sub cobbe()
x = 1
For Each c1 In Range("A1:A9")
 For Each c2 In Range("B1:B2")
  For Each c3 In Range("C1:C5")
   Cells(x, 6) = c1 & c2 & c3: x = x + 1
  Next
 Next
Next
End Sub

 

[Timshel]

Verondersteld dat de kolommen geen kopregel hebben, zet onderstaande formule in E1 en kopieer door tot E100:

=INDEX(Sheet1!$A$1:$A$10;INTEGER((RIJ()-1)/10)+1)&INDEX(Sheet1!$B$1:$B$2;REST(RIJ()-1;2)+1)&INDEX(Sheet1!$C$1:$C$5;REST(RIJ()-1;5)+1)

 

[AlexCEL]

Als je 1 aselecte waarde zoekt:

=TEKEN(ASELECTTUSSEN(65;74))&TEKEN(76+6*ASELECTTUSSEN(0;1))&ASELECTTUSSEN(1;5)

 

[blmsth]

THX!!!
Opgelost.

Test deze eens:

Sub cobbe()
x = 1
For Each c1 In Range("A1:A9")
 For Each c2 In Range("B1:B2")
  For Each c3 In Range("C1:C5")
   Cells(x, 6) = c1 & c2 & c3: x = x + 1
  Next
 Next
Next
End Sub

 

[Cobbe]

Ik heb er nog een trekking van 10 verschillende combinatie's uit die 90 bijgedaan.

 

[blmsth]

Sommige mensen kunnen toch echt wel goochelen met Excel!! Nice! Bedankt, Tom.

Ik heb er nog een trekking van 10 verschillende combinatie's uit die 90 bijgedaan.

 

[snb]

Als je, zoals Timshel, denkt in termen van reeksen:

Sub M_snb()
  ReDim sp(10 * 2 * 5, 0)
    
  For j = 0 To UBound(sp) - 1
    sp(j, 0) = Chr(65 + j \ 10) & Chr(76 + 6 * ((j \ 5) Mod 2)) & j Mod 5 + 1
  Next
    
  Cells(1).Resize(UBound(sp)) = sp
End Sub