Hallo zusammen,

vielleicht kann mir ja einer von euch weiterhelfen.
Ich habe eine Tabelle die lautet Kopfdaten.
In dieser werden Datum (bis zu 100x das gleiche, aber innerhalb eines Monats) mit einer zufälligen Uhrzeit und einer Bonnummer(Entspricht je einem Datum mit zugehöriger Uhrzeit) aufgelistet.
Aus dieser Tabelle wird die Bonnummer in die Tabelle Item übertragen.
Diese Bonnummer kann je nach Anzahl von Artikeln aus der Tabelle "Artikel" mehrmals aufgelistet werden.
Einer Bonnummer soll aus der Tabelle Artikel zufällig unterschiedliche Artikelnummern zugeordnet werden, die aber nicht doppelt vorkommen dürfen. ( Mein Problem )

Beispiel; So soll es aussehen:
Bonnummer: Artikelnummer:
1 2157
1 2158
1 2758
2 2157
2 2158
2 2758

Eine Bonnummer darf nur einen Artikel der selben Artikelnummer enthalten.

Sprich es darf pro Bonnummer die Artikel nicht doppelt vorkommen, aber auf der nächsten Bonnummer wieder.

Hier mal ein Teil meines Codes:

AnzahlZeilen = Die Anzahl an zeilen in Tabelle "Artikel" für die Artikelnummer
Artnr = Entnimmt die Artikelnummer aus der zufällig gewählten Zeile von Artikelnr
artpreis = Entnimmt die Artikelpreis aus der zufällig gewählten Zeile von Artikelnr
mwst = Entnimmt die Artikelmehrwertsteuer aus der zufällig gewählten Zeile von Artikelnr

Code (Visual Basic):

1. For q = 1 To Bon
2.                Artikelmenge = CInt(Round(Int((5 - 1 + 1) * Rnd()))) + 1
3.                Artikelnr = CInt(Round(Int(((Anzahlzeilen) - 2 + 1) * Rnd()))) + 2
4.                Artnr = Worksheets("Artikel").Cells(Artikelnr, 1).Value
5.                artpreis = Worksheets("Artikel").Cells(Artikelnr, 2).Value
6.                mwst = Worksheets("Artikel").Cells(Artikelnr, 3).Value
7.  
8.                mwst1 = mwst / 100
9.                prozent = artpreis * mwst1
10.                artendpreis = artpreis + prozent
11.  
12.                Worksheets("Item").Cells(w, 1) = y
13.                Worksheets("Item").Cells(w, 2) = Artnr
14.                Worksheets("Item").Cells(w, 3) = Artikelmenge
15.                Worksheets("Item").Cells(w, 4) = artpreis
16.                Worksheets("Item").Cells(w, 5) = mwst
17.                Worksheets("Item").Cells(w, 6) = Artikelmenge * artendpreis
18.                w = w + 1
19. Next q