Dim ArSepp(2, 3)
 
ArSepp(0, 0) = 0
ArSepp(0, 1) = 1
ArSepp(0, 2) = 2
ArSepp(0, 3) = 3
 
ArSepp(1, 0) = 4
ArSepp(1, 1) = 5
...

Dim i As Integer
Dim u As Integer
Dim n As Integer
 
n = 0
For i = 0 To 3
  For u = 0 To 4
    ArSepp(i, u) = n
    n = n + 1
  Next u
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de