Hallo zusammen,
bevor ihr auf einen anderen Thread verweist lest euch erstmal mein Problem durch.
Ich habe drei Tabellen, in denen unterschiedliche Werte stehen, die dann übergreifend verwendet werden.
In meinem Fall habe ich eine Liste mit einer festen Anzahl Artikelnummern.
Die Spalte in der diese stehen wird ausgelesen und die Anzahl an Artikeln ermittelt. Mit Hilfe dieser Zahl nehme ich dann zufällig einen Artikel aus der Liste und setze ihn in einer anderen Tabelle ab. Jedoch darf in der anderen Tabelle diese Artikelnummer nicht doppelt aufgelistet werden. Wie kann ich das umsetzen.
Hier der relevante Teil-Code:
bevor ihr auf einen anderen Thread verweist lest euch erstmal mein Problem durch.
Ich habe drei Tabellen, in denen unterschiedliche Werte stehen, die dann übergreifend verwendet werden.
In meinem Fall habe ich eine Liste mit einer festen Anzahl Artikelnummern.
Die Spalte in der diese stehen wird ausgelesen und die Anzahl an Artikeln ermittelt. Mit Hilfe dieser Zahl nehme ich dann zufällig einen Artikel aus der Liste und setze ihn in einer anderen Tabelle ab. Jedoch darf in der anderen Tabelle diese Artikelnummer nicht doppelt aufgelistet werden. Wie kann ich das umsetzen.
Hier der relevante Teil-Code:
Code:
For q = 1 To Bon
Artikelnr = CInt(Round(Int(((Anzahlzeilen) - 2 + 1) * Rnd()))) + 2
Artnr = Worksheets("Artikel").Cells(Artikelnr, 1).Value
Worksheets("Item").Cells(w, 2) = Artnr
Worksheets("Item").Cells(w, 1) = y
w = w + 1
Next q