Primzahlen

[otto55]

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

[LCohen]

Bitte nicht gleich lamentieren.

[snb]

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

[otto55]

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