Orders vullen met klantnummers en artikelnummers

[alexander321]

Ik heb een assortiment artikelen (tabblad artikelen) en een lijst met klanten (tabblad klanten).
Nu wil ik op tabblad orders een lijst genereren waarop alle klanten alle artikelen ontvangen.
Dit zou met een scriptje moeten kunnen, maar iets met een loop heb ik nog niet mee gewerkt.
Wie kan mij helpen?
Alvast dank!

 

[VenA]

Probeer het zo eens.

Sub VenA()
  ar = Sheets("Klanten").Cells(1).CurrentRegion
  ar1 = Sheets("Artikelen").Cells(1).CurrentRegion
  ReDim ar2(1, 0)
  For j = 2 To UBound(ar)
    For jj = 2 To UBound(ar1)
      ar2(0, UBound(ar2, 2)) = ar(j, 1)
      ar2(1, UBound(ar2, 2)) = ar1(jj, 1)
      ReDim Preserve ar2(1, UBound(ar2, 2) + 1)
    Next jj
  Next j
  Sheets("Orders").Cells(2, 1).Resize(UBound(ar2, 2), 2) = Application.Transpose(ar2)
End Sub

 

[alexander321]

Top, het werkt!
Dank je.