Clever-Excel-Forum

Hallo,

in Python gibt es die Funktion Primzahlen im Bereich (Untergrenze, Obergrenze)

In Excel sind ja die zahlentheoretischen Formel scheinbar nicht existent. Kann mir jemand da was empfehlen? Oder VBA was schreiben.

Danke

Bitte nicht gleich lamentieren.

Vielleicht:

Code:
Sub M_Sieve_erastothenes()

    n = 100000

     sp = [row(1:100000)]

     For j = 2 To UBound(sp)

        For jj = 2 To n \ j

             sp(j * jj, 1) = ""

        Next

        If j = 2 Then sp(j, 1) = ""

     Next

     y = 1

     For j = 1 To UBound(sp)

        If sp(j, 1) <> "" Then

           sp(y, 1) = sp(j, 1)

           y = y + 1

        End If

     Next

    Range("A1").Resize(n).Value = sp

End Sub

Danke erstmal, melde mich noch mir der Implementation .... ich lamentiere auch nicht mehr...

otto55

LCohen

snb

otto55