OpenOffice.info

Hallo
[quote="Dieter"]FICKT EUCH ALLE ICH BIN FERTIG![/quote]
Danke, gern geschehen, wir freuen uns immer wieder wenn wir unentgeltlich helfen können ! 8)

Karo

[quote="Dieter"]
... musst wissen, dass ich blutiger anfänger ... [/quote]

und das wird sich in vielen Dingen so bald nicht ändern. Viel Spass noch in Deinem Leben.

#!
# -*- coding: utf_8 -*-

import uno
from random import sample

context = XSCRIPTCONTEXT

def lotto():
    return tuple(sorted( sample(range(1,50),6)))

def setlottoziehungen(dummy=None):
    starc, startrow = 0, 5
    doc = context.getDocument()
    sourcerange = doc.getCurrentSelection()
    sheet = sourcerange.getSpreadsheet()
    sheet.getCellRangeByPosition(0,5,5,1000000).clearContents(1)
    anzahl =  int(sheet.getCellRangeByName("B1").getValue())
    endrow = startrow + anzahl -1
    out = tuple([ lotto() for _ in range(anzahl) ])
    outrange = sheet.getCellRangeByPosition(0,5,5,endrow)
    outrange.setDataArray( out )

Hallo

Schau dir mal das Dokument im Anhang an, ( zuerst auf der eigenen Platte speichern und von dort öffnen )
[attachment=0]py_lotto.ods[/attachment]

Den Quelltext gibts auch nochmal extra:
[code]#!
# -*- coding: utf_8 -*-

import uno
from random import sample

context = XSCRIPTCONTEXT

def lotto():
return tuple(sorted( sample(range(1,50),6)))

def setlottoziehungen(dummy=None):
starc, startrow = 0, 5
doc = context.getDocument()
sourcerange = doc.getCurrentSelection()
sheet = sourcerange.getSpreadsheet()
sheet.getCellRangeByPosition(0,5,5,1000000).clearContents(1)
anzahl = int(sheet.getCellRangeByName("B1").getValue())
endrow = startrow + anzahl -1
out = tuple([ lotto() for _ in range(anzahl) ])
outrange = sheet.getCellRangeByPosition(0,5,5,endrow)
outrange.setDataArray( out )
[/code]

Gruß Karo

function Mal_Zwei(bezugZelle)
on error goto Err_Mal_Zwei

 Mal_Zwei = bezugZelle *2

exit function
Err_Mal_Zwei:
Mal_Zwei = "Fehler!!!"
end function

http://www.ooowiki.de/CalcFunktionenEigene

[code]function Mal_Zwei(bezugZelle)
on error goto Err_Mal_Zwei

Mal_Zwei = bezugZelle *2

exit function
Err_Mal_Zwei:
Mal_Zwei = "Fehler!!!"
end function[/code]

in die Zelle A1 schreibst Du: 5
in die Zelle A2 schreibst Du: =Mal_Zwei(A1)

Dann steht in A2 ... etwa genau 10 ... hab's nicht selbst gerechnet

Hallo Dieter
Lottoziehung, Javascript ?
[url=http://de.openoffice.info/viewtopic.php?f=18&t=52126#p194377]kommt mir irgendwie bekannt vor[/url]

Karo