deutsches Forum rund um Apache OpenOffice und LibreOffice
http://www.oooforum.de/
Code: Alles auswählen
Sub Teiler_ermitteln
dim ovalue as integer
osheet=thiscomponent.sheets(0)
for i=1 to 1000
zaehler=0
ocell=osheet.getcellbyposition(0,i-1)
ocell.value=i
for k=1 to i
if (i mod k)=0 then zaehler=zaehler+1
next k
oresultcell=osheet.getcellbyposition(1,i-1)
oresultcell.value=zaehler
if Zaehler<=2 then
oresultcell=osheet.getcellbyposition(2,i-1)
oresultcell.string="Primzahl"
endif
next i
msgbox "fertig"
end subStimmt was mit deinem Browser nicht? Bei mir wird das (nicht "die") Makro »Sub Teiler_ermitteln« deutlich im Beitrag von F3K Total in der Box angezeigt, die mit »Code: Alles auswählen« überschrieben ist.Gast hat geschrieben:Deshalb habe ich das jetzt mit der Makro probieren wollen, aber habe diese nicht gefunden. Wo ist die denn?