Seite 1 von 1
Zufahlszahl zwischen 0 und 10 durch ein Makro erstellen
Verfasst: So, 10.09.2017 09:05
von 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
Re: Zufahlszahl zwischen 0 und 10 durch ein Makro erstellen
Verfasst: So, 10.09.2017 12:08
von 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
Re: Zufahlszahl zwischen 0 und 10 durch ein Makro erstellen
Verfasst: So, 10.09.2017 19:20
von 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?
Re: Zufahlszahl zwischen 0 und 10 durch ein Makro erstellen
Verfasst: So, 10.09.2017 20:45
von 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
Re: Zufahlszahl zwischen 0 und 10 durch ein Makro erstellen
Verfasst: Mo, 11.09.2017 16:28
von volker1959
Und nochmals Danke.
Re: Zufahlszahl zwischen 0 und 10 durch ein Makro erstellen
Verfasst: Sa, 16.09.2017 16:34
von 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.
Re: Zufahlszahl zwischen 0 und 10 durch ein Makro erstellen
Verfasst: So, 17.09.2017 11:38
von mikeleb
Hallo,
anstelle von .getCellRangeByName() nutzt du .getCellbyPosition()
Re: Zufahlszahl zwischen 0 und 10 durch ein Makro erstellen
Verfasst: So, 17.09.2017 15:01
von volker1959
mikeleb hat geschrieben: So, 17.09.2017 11:38
Hallo,
anstelle von .getCellRangeByName() nutzt du .getCellbyPosition()
Danke, hat funktioniert.