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):
-
For q = 1 To Bon
-
Artikelmenge = CInt(Round(Int((5 - 1 + 1) * Rnd()))) + 1
-
Artikelnr = CInt(Round(Int(((Anzahlzeilen) - 2 + 1) * Rnd()))) + 2
-
Artnr = Worksheets("Artikel").Cells(Artikelnr, 1).Value
-
artpreis = Worksheets("Artikel").Cells(Artikelnr, 2).Value
-
mwst = Worksheets("Artikel").Cells(Artikelnr, 3).Value
-
-
mwst1 = mwst / 100
-
prozent = artpreis * mwst1
-
artendpreis = artpreis + prozent
-
-
Worksheets("Item").Cells(w, 1) = y
-
Worksheets("Item").Cells(w, 2) = Artnr
-
Worksheets("Item").Cells(w, 3) = Artikelmenge
-
Worksheets("Item").Cells(w, 4) = artpreis
-
Worksheets("Item").Cells(w, 5) = mwst
-
Worksheets("Item").Cells(w, 6) = Artikelmenge * artendpreis
-
w = w + 1
-
Next q
|