OpenOffice.info

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

Hallo
Dazu kannst du das folgende Makro nutzen:
[code]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[/code]
[url=http://de.openoffice.info/viewtopic.php?f=2&t=9378&hilit=zufallszahlen]entnommen und angepasst von ..[/url]

Anleitung zur Installation gibts [url=http://www.ooowiki.de/MakrosInstallieren]hier im Kapitel Quellcode...[/url]
Gruß Karo