title image


Smiley Suche Hilfe für ein Programm im EXCEL97 6aus49 generierung
Was mache ich Falsch? Ich möchte Zufallszahlen generieren 6 aus 49 von Spalte A1 bis Spalte F16000 und dies soll mir Zeilenmäßig auflisten z.B1 12 23 35 44 77 18 1 39 49 47 uswund keine Zahl soll sich wiederholen aber es klappt irgend wie nicht. Oder gibte es bessere möglichkeiten diese 14 000 000 Milli. Möglichkeiten sich anzeigen zu lassen. Sub Zufall() Dim Wert%, wieviele%, i%, n% 'Frage, wieviele Zahlen generiert werden sollen wieviele = InputBox("Wieviele Zahlen sollen erzeugt werden?", "Anzahl", 6) If IsNumeric(wieviele) = False Then Exit Sub If wieviele > 15 Then Exit Sub Sheets("Tab1").Select 'alte Zahlen löschen Range("A1:F1").Value = "" 'Zahlen erzeugen For i = 1 To wievielenochmal: Wert = Int((49 * Rnd) + 1) 'Kontrolle ob schon vorhanden For n = 1 To i If Cells(1, n) = Wert Then GoTo nochmal Next'ZAhl eintragen Cells(1, i) = Wert Next'Sortieren Range("A1:F1").Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftRight [a1].SelectEnd SubDanke im Voraus

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: