List all combinations from 1 to 45

Hi,

This about an exercise, we need to visualize all possible combinations for a lottery.

The question is:

Can somebody make a VBA code which writes down all possible 6-combinations from 1 to 45.

But i would like to add a colour. And these folowing colours for each number combination.
1 rood
2 geel
3 groen
4 blauw
5 oranje
6 paars

It should be around the 40.000.000 combinations.
I added an excel sheet to give an example. But it is to much to do by hand.

Thnx

Hi,

I think this would be the code for numbers, but i need to add the colors to each combination.

Option Explicit

Dim A As Integer, B As Integer, C As Integer
Dim D As Integer, E As Integer, F As Integer
Dim N As Long

Sub List_Comb()
Range("A1").Select
Application.ScreenUpdating = False
N = 0
For A = 1 To 40
For B = A + 1 To 41
For C = B + 1 To 42
For D = C + 1 To 43
For E = D + 1 To 44
For F = E + 1 To 45
ActiveCell.Value = A & "-" & B & "-" & C & "-" & D & "-" & E & "-" & F
ActiveCell.Offset(1, 0).Select
N = N + 1
If N = 65001 Then
N = 0
ActiveCell.Offset(-65001, 1).Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
End If
Next F
Next E
Next D
Next C
Next B
Next A
Application.ScreenUpdating = True
End Sub

Can somebody add this in this VBA code.