Matrix mit Zufallszahlen

[Karolus]

Hallo
Dazu kannst du das folgende Makro nutzen:

Code: Alles auswählen

sub zufallsZahlen ' 1 - 100 zufällig in 10x10 Zellenmatrix
Dim zahlen(99) As Integer, i As Integer, j As Integer
Dim gefunden As Boolean, sp as Integer, zei as Integer
i = 0
zahlen(0) = Int(100 * Rnd) + 1 'erste Zufallszahl
thisComponent.sheets(0).getcellbyposition(0,0).value = zahlen(0) '1.Tabblatt A1
Do
	i = i + 1
	gefunden = False
	zahlen (i) = Int(100 * Rnd) + 1 'weitere Zufallszahlen
		For j = 0 To i - 1                    
			If zahlen (j) = zahlen (i) Then  'Prüfung ob schon vorhanden...
			i = i - 1                          'wenn ja i zurücksetzen
			gefunden = True
		Exit For
			End If
		Next j
		If Not gefunden Then  'wenn nein
			sp = int(i/10)          'Spaltenindex berechnen
			zei = i mod 10         'Zeilenindex berechnen
			thisComponent.sheets(0).getcellbyposition(sp,zei).value = zahlen (i) 'Zufallswert eintragen
		end if
Loop Until i = 99
End sub

entnommen und angepasst von ..

Anleitung zur Installation gibts hier im Kapitel Quellcode...
Gruß Karo