Danke für die schnelle Antwort,
Jetzt kann ich die Funktion zwar in einer Zelle darstellen, dafür aber gibt mir diese Funktion nur
die höchste der Primzahlen wieder.
und nicht mehr in diesem Format (3,5,7,11....)
für
Function primzahlen_zwischen(z1 As Integer, z2 As Integer)
Dim ergebnis As String
Dim i As Integer
Dim x As Integer
i = z1
Do
If ist_primzahl(i) = True Then
ergebnis = i
ergebnis = ergebnis & ","
End If
i = i + 1
Loop Until i = z2 + 1
primzahlen_zwischen = ergebnis
End Function
Im Direktfenster bekomme ich für
?primzahlen_zwischen(0,99)
97,
|