Anzahl der Teiler der Zahlen von 1 bis 1000 anzeigen lassen

[Eddy]

Hallo Gast Openmon,

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

Mit hingeschriebenen Grüßen

Eddy

[F3K Total]

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

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 sub

Gruß R

[lorbass]

Deshalb habe ich das jetzt mit der Makro probieren wollen, aber habe diese nicht gefunden. Wo ist die denn?

Stimmt 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.

Gruß
lorbass