Zufahlszahl zwischen 0 und 10 durch ein Makro erstellen

[volker1959]

Hallo,

Erstmal Danke für die Aufnahme in dieses Forum.

Ich suche ein Makro für OO CALC , das mir in der Zelle B2 eine Zufallszahl generiert.

Ich möchte mich in diese Programmiersprache einarbeiten.

Danke

[Stephan]

dafür sollte genügen:

Code: Alles auswählen

ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("B2").Value = Int(11 * Rnd)

Nebenbemerkungen:
-ja, 11, denn Int rundet immer ab
-wie weitgehend wirklich zufällig diese Zufallszahlen sind (z.B. könnte man Rnd auch noch initialisieren), dazu lies im Internet nach (z.B. unter Stichwort "Zufallszahlen mit VBA")
-man kann das auch per Funktion ZUFALLZAHL() in der Zelle erledigen


GRuß
Stephan

[volker1959]

Danke. Hat alles funktioniert.

Nur noch eine Frage wegen der 11 im Beispiel.

Kann ich diese in eine Variable umwandeln und wie ist die richtige Schreibweise?

[Stephan]

Kann ich diese in eine Variable umwandeln und wie ist die richtige Schreibweise?

z.B.

Code: Alles auswählen

Dim meineVariable As Long

meineVariable = 11
ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("B2").Value = Int(meineVariable * Rnd)

Gruß
Stephan

[volker1959]

Und nochmals Danke.

[volker1959]

Jetzt fehlt mir nur noch die Info, wie die richtige Schreibweise ist, wenn ich die Spalte und Zeile als Variablen einfügen möchte.

[mikeleb]

Hallo,
anstelle von .getCellRangeByName() nutzt du .getCellbyPosition()

[volker1959]

Hallo,
anstelle von .getCellRangeByName() nutzt du .getCellbyPosition()

Danke, hat funktioniert.