OpenOffice.info

[quote="Gast"]Deshalb habe ich das jetzt mit der Makro probieren wollen, aber habe diese nicht gefunden. Wo ist die denn?[/quote]
Stimmt was mit deinem Browser nicht? Bei mir wird das (nicht "die") Makro [i]»Sub Teiler_ermitteln«[/i] deutlich im Beitrag von [i]F3K Total[/i] in der Box angezeigt, die mit [i]»Code: Alles auswählen«[/i] überschrieben ist.

Gruß
lorbass

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 sub

Hallo,
ich hätte da noch eine Makro-Lösung:

[code]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 sub[/code] Gruß R

Hallo Gast Openmon,

da brauchst Du nichts besonderes. Du kannst die Zahlen einfach so in die Zellen schreiben.

Mit hingeschriebenen Grüßen

Eddy