Wie kann man in Excel prüfen ob ein Wert eine Primzahl ist?

Gibt es eine Formel oder eine Möglichkeit in VBA?

Answer 1

[hannes1806]

Hallo ich habe eine Function VBA, die diese Ergebnisse liefert:

hier der Code:

Function PRIMZAHL(rngZelle As Range) As Boolean

On Error Resume Next

  If rngZelle.Value < 2 Then PRIMZAHL = False: GoTo aus 'zu klein

  If Int(rngZelle.Value) <> rngZelle.Value Then PRIMZAHL = False: GoTo aus 'Dezimalstellen

  For i = 2 To rngZelle.Value ^ 0.5

    If rngZelle.Value Mod i = 0 Then PRIMZAHL = False: GoTo aus

  Next i

  PRIMZAHL = True

aus:

End Function

Woher ich das weiß: eigene Erfahrung – Faulheit >> Neugier >> Wissen

Comments

[SadDad]

Super Klasse. Vielen lieben Dank! Genau so etwas habe ich gesucht. 👍

Answer 2

[Pauker1961]

=ISTPRIMZ(Zahl)

Function ISTPRIMZ(ByVal x As Long) As Boolean

   If x < 2 Then

       ISTPRIMZ = False

       Exit Function

   End If

   For i = 2 To Int(Sqr(x))

       If x Mod i = 0 Then

           ISTPRIMZ = False

           Exit Function

       End If

   Next i

   ISTPRIMZ = True

End Function

Woher ich das weiß: Berufserfahrung

Answer 3

[diewoelfin0815]

Geht z.B. mit dieser Formel:

=IF(A2=2,"Primzahl",IF(AND(MOD(A2,ROW(INDIRECT("2:"&ROUNDUP(SQRT(A2),0))))<>0),"Primzahl","Keine Primzahl"))

A2 ist in diesem Fall die Zelle, die die Zahl enthält, die überprüft wird

Weitere Infos sh. :

https://de.extendoffice.com/documents/excel/3681-excel-check-if-prime-number.html

Answer 4

[GutenTag2003]

Ein einfacher Weg wäre, Dir die Primzahlen in einem Tabellenblatt zu hinterlegen

Primzahlen: Tabelle der Primzahlen (2 - 100.000) – Wikibooks, Sammlung freier Lehr-, Sach- und Fachbücher

... und per Wennabfrage Dir den Treffer anzeigen lassen.