Hallo
ich hab jetzt Excel 20 for Mac.
Ich habe in Spalte D über Formel erzeugte Zahlen und daneben in Spalte E möchte ich eine Bemerkung, ob die in Spalte D stehende Zahl prim ist oder nicht.
Wer gibt mir da was Schnelles?
Hallo noch einmal,
hier noch ein Makro zur Ermittlung von Primzahlen:
Zitat:Microsoft Excel Objekt Tabelle1Option Explicit
Sub Primzahl()
Dim x As Double
Dim prim As Double
Dim a As Double
Dim b As Double
b = 0
x = Application.InputBox(prompt:="Bitte geben Sie eine Zahl ein." & _
"Wir werden sehen ob es sich um eine Primzahl handelt.", Type:=1)
If x = 1 Then
MsgBox ("Eine Primzahl muß einen Wert über 1 haben")
Exit Sub
End If
For prim = 1 To x
a = x / prim
If a = Int(a) Then
b = b + 1
End If
Next
If b > 2 Then
MsgBox (x & " ist keine Primzahl")
Exit Sub
Else
MsgBox (x & " ist eine Primzahl")
End If
End Sub
Gruß
Marcus
Danke Marcus, die erste Formel funktioniert, aber bei näherem Hinsehen, zeigt sie auch bei 525 PZ an, was ja nicht angeht. sie zeigt alle ungeraden als PZ an.
[
attachment=29291]
(29.01.2020, 09:35)kurtkurt57 schrieb: [ -> ]Wo kann ich Dateien anhängen oder Bilder einfügen?
Moin,
klick den Link an - da kannst du alles nachlesen.
Problem erledigt, eine Formel von weiter unten genommen...
Danke nochmals für die Site!
@Marose
Reicht schon:
Code:
Sub M_snb()
y = Application.InputBox("Bitte geben Sie eine Zahl ein", "Primzahl Prüfung", , , , , , 1)
For j = 2 To y - 1
If y Mod j = 0 Then Exit For
Next
MsgBox y & " ist " & IIf(j < y, "k", "") & "eine Primzahl"
End Sub
Hallo snb,
so kurz?
Danke!
Gruß
Marcus
Hallo,
die Schleife bitte nur bis Wurzel(x).
Hallo Helmut,
versuche ja weiter zu lernen. Was soll Dein Kommentar bedeuten?
Gruß
Marcus