Microsoft Excel

Herbers Excel/VBA-Archiv

felder mit zufallszahlen

Betrifft: felder mit zufallszahlen von: greenhorn
Geschrieben am: 02.09.2004 16:02:25

hi!
frage: wie kann ich ein "zahlenfeld" - z.bsp. 6 zeilen und 10 spalten mit zahlen von 1 bis 60 füllen, ohne dass eine zahl mehrfach vorkommt? mit funktion "zufallszahl()*60" kommen zahlen tlw doppelt vor...
danke für eure lösungen!! :o)

  


Betrifft: AW: felder mit zufallszahlen von: Basti
Geschrieben am: 02.09.2004 16:28:56

Hmm solln das zufalls zahlen sein;)?

Ansonten wuerd ich Feld 1 = 1 Feld2 = 2 etc. machen

l=1
For i = 1 to 6
For j = 1 to 10
cells(j,i) = l
l=l+1
next j
next i

und das alx makro speicher und abfahrt!


  


Betrifft: AW: felder mit zufallszahlen von: greenhorn
Geschrieben am: 02.09.2004 16:34:46

danke für die antwort!
die zahlen sollten nicht analog durchnummeriert, sondern gemischt werden....


  


Betrifft: AW: felder mit zufallszahlen von: nighty
Geschrieben am: 02.09.2004 16:29:50

hi :)

wie gewuenscht :)

gruss nighty

Sub makro01()
Randomize Timer
ReDim zuzahl(60) As Integer
Dim zahl(60) As Variant
Dim endeindex As Integer
Dim allezahlen As Integer
Dim allezahlen1 As Integer
Dim ziehung As Integer
Dim gezogen As Integer
Dim zeile As Long
Dim spalte As Integer
endeindex = 60
For allezahlen = 1 To 60
zuzahl(allezahlen) = allezahlen
Next allezahlen
zeile = zeile + 1
spalte = spalte + 1
For ziehung = 1 To 60
gezogen = Int(Rnd * endeindex) + 1
zahl(ziehung) = zuzahl(gezogen)
zuzahl(gezogen) = zuzahl(endeindex)
endeindex = endeindex - 1
ReDim Preserve zuzahl(endeindex)
If spalte = 7 Then
spalte = 1
zeile = zeile + 1
End If
Cells(zeile, spalte) = zahl(ziehung)
spalte = spalte + 1
Next ziehung
End Sub



  


Betrifft: AW: felder mit zufallszahlen von: greenhorn
Geschrieben am: 02.09.2004 16:47:38

wow!
supi, danke!!!


  


Betrifft: AW: felder mit zufallszahlen von: greenhorn
Geschrieben am: 02.09.2004 16:53:35

noch was:
es wäre sensationell, wenn ich jetzt noch die gewürfelten zahlen darunter sortieren und mit den jeweiligen "koordinaten" vesehen könnte... bsp 1 = e4, 2 =c1, usw....
*mannbinichgespanntobdasjemandschafft*


  


Betrifft: AW: felder mit zufallszahlen von: nighty
Geschrieben am: 02.09.2004 17:14:03

hi :)

:)

gruss nighty

Sub makro02()
Sheets(1).Range("A1:F71").Clear
Randomize Timer
ReDim zuzahl(60) As Integer
Dim zahl(60) As Variant
Dim endeindex As Integer
Dim allezahlen As Integer
Dim allezahlen1 As Integer
Dim ziehung As Integer
Dim gezogen As Integer
Dim zeile As Long
Dim spalte As Integer
endeindex = 60
For allezahlen = 1 To 60
zuzahl(allezahlen) = allezahlen
Next allezahlen
zeile = zeile + 1
spalte = spalte + 1
For ziehung = 1 To 60
zeile1 = zeile1 + 1
gezogen = Int(Rnd * endeindex) + 1
zahl(ziehung) = zuzahl(gezogen)
zuzahl(gezogen) = zuzahl(endeindex)
endeindex = endeindex - 1
ReDim Preserve zuzahl(endeindex)
If spalte = 7 Then
spalte = 1
zeile = zeile + 1
End If
Cells(zeile, spalte) = zahl(ziehung)
Cells(zeile1 + 11, 1) = zahl(ziehung)
Cells(zeile1 + 11, 2) = Chr$(64 + spalte) & zeile
spalte = spalte + 1
Next ziehung
Range("A12:B71").Sort Key1:=Range("A12"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.SmallScroll Down:=3
End Sub



  


Betrifft: AW: felder mit zufallszahlen von: greenhorn
Geschrieben am: 02.09.2004 17:25:24

oh, wie ist das schöööön!!!
sennnnsationelll!!
allerherzlichsten dank, nighty!!!


  


Betrifft: noch was von: greenhorn
Geschrieben am: 02.09.2004 17:07:57

es wäre sensationell, wenn ich jetzt noch die gewürfelten zahlen darunter sortieren und mit den jeweiligen "koordinaten" vesehen könnte... bsp 1 = e4, 2 =c1, usw....
*mannbinichgespanntobdasjemandschafft*


  


Betrifft: AW: noch was von: yps
Geschrieben am: 02.09.2004 18:28:58

hi,
hast du nicht mal was schweres ? ;-) (nicht so ernst nehmen)

Sub makro01()
Randomize Timer
ReDim zuzahl(60) As Integer
Dim zahl(60) As Variant
Dim addy(60) As Variant
Dim endeindex As Integer
Dim allezahlen As Integer
Dim allezahlen1 As Integer
Dim ziehung As Integer
Dim gezogen As Integer
Dim zeile As Long
Dim spalte As Integer
Dim i As Integer
endeindex = 60
For allezahlen = 1 To 60
zuzahl(allezahlen) = allezahlen
Next allezahlen
zeile = zeile + 1
spalte = spalte + 1
For ziehung = 1 To 60
gezogen = Int(Rnd * endeindex) + 1
zahl(ziehung) = zuzahl(gezogen)
zuzahl(gezogen) = zuzahl(endeindex)
endeindex = endeindex - 1
ReDim Preserve zuzahl(endeindex)
If spalte = 7 Then
spalte = 1
zeile = zeile + 1
End If
Cells(zeile, spalte) = zahl(ziehung)
addy(zahl(ziehung)) = Cells(zeile, spalte).Address
spalte = spalte + 1
Next ziehung
For i = 1 To 60
Cells(11 + i, 1) = i & " " & addy(i)
Next
End Sub


cu Micha


  


Betrifft: AW: noch was von: greenhorn
Geschrieben am: 02.09.2004 18:46:57

toll!
vielleicht noch ohne $-zeichen bei den "zellkoordinaten"...so zum drüberstreuen?!?
?


  


Betrifft: AW: noch was von: y
Geschrieben am: 02.09.2004 18:50:10

hi,
so in etwa ?

Sub makro01()
Randomize Timer
ReDim zuzahl(60) As Integer
Dim zahl(60) As Variant
Dim addy(60) As Variant
Dim endeindex As Integer
Dim allezahlen As Integer
Dim allezahlen1 As Integer
Dim ziehung As Integer
Dim gezogen As Integer
Dim zeile As Long
Dim spalte As Integer
Dim i As Integer
endeindex = 60
For allezahlen = 1 To 60
zuzahl(allezahlen) = allezahlen
Next allezahlen
zeile = zeile + 1
spalte = spalte + 1
For ziehung = 1 To 60
gezogen = Int(Rnd * endeindex) + 1
zahl(ziehung) = zuzahl(gezogen)
zuzahl(gezogen) = zuzahl(endeindex)
endeindex = endeindex - 1
ReDim Preserve zuzahl(endeindex)
If spalte = 7 Then
spalte = 1
zeile = zeile + 1
End If
Cells(zeile, spalte) = zahl(ziehung)
addy(zahl(ziehung)) = Cells(zeile, spalte).Address(RowAbsolute:=False, ColumnAbsolute:=False)
spalte = spalte + 1
Next ziehung
For i = 1 To 60
Cells(11 + i, 1) = i & " " & addy(i)
Next
End Sub


cu Micha


  


Betrifft: AW: noch was von: greenhorn
Geschrieben am: 02.09.2004 19:22:03

supi!
könntest du noch so nebenbei bei meinem bankkonto zwei nullen dranhängen?!? *gg*
danke für eure hilfe!!!


  


Betrifft: AW: noch was von: y
Geschrieben am: 02.09.2004 19:23:33

hi,
gib deine kontonummer und deine pin *fg*
cu Micha


 

Beiträge aus den Excel-Beispielen zum Thema "felder mit zufallszahlen"