Hallo alle miteinander,
ich hoffe das mann mir hier bei meinem Problem helfen kann, da meine VBA Kenntnisse überschaubar sind.
Mein Szenario ist folgendes:
Ich muss 6 unterschiedliche Zufallszahlen zwischen 1 und 70 erzeugen. Möglichste viele Kombinationen
Einzutragen in "tabelle1".Range("A1:E1")
Das habe ich realisiert.
Nun muss ich diese generierten Kombinationen auf "tabelle2" kopieren.
z.B. Range("A1:E.......") und reihenweise aufsteigend sortiert
Auch das ist erledigt.
Jetzt kommt mein Problem.
Wie kann ich jetzt diese Zahlen Sätze ( Kombinations "Rows" ) nach doppelt generierten Kombinationen durchsuchen und die Dubletten "Row" löschen.
Da mir bewusst ist, das aufgrund der enormen Menge an Kombi Möglichkeiten das ganze sehr speicher intensiv ist, wäre ich sehr an einer "schlanken" Methode interessiert.
Alternativ wäre ich auch an einer Möglichkeit interessiert, diese "Doppel" Generierung bereits während der Generierung zu vermeiden. Anbei daher mein Code zur Generierung:
Public Sub Generierung()
'generiert neue 5er Zahlenreihe zwischen 1 und 70 ohne Dopplung von Zahlen
Randomize
ReDim zuzahl(70) As Integer
Dim zahl(70) As Integer
Dim endeindex As Integer
Dim allezahlen As Integer
Dim ziehung As Integer
Dim gezogen As Integer
Dim Bereich As Range
endeindex = 70
For allezahlen = 1 To 70
zuzahl(allezahlen) = allezahlen
Next allezahlen
Range("A1:E2").Value = ""
For ziehung = 1 To 5
gezogen = Int(Rnd * endeindex) + 1
zahl(ziehung) = zuzahl(gezogen)
zuzahl(gezogen) = zuzahl(endeindex)
endeindex = endeindex - 1
ReDim Preserve zuzahl(endeindex)
Cells(2, ziehung) = zahl(ziehung)
Next ziehung
End Sub
Ich danke euch allen im Vorraus für jegliche Hilfe und wünsche euch allen ein frohes Weihnachtsfest
|