Registriert seit: 21.06.2016
Version(en): 2021
29.01.2020, 14:17
(Dieser Beitrag wurde zuletzt bearbeitet: 29.01.2020, 14:17 von Ego.)
Hallo Marcus,
das soll die Rechenzeit sehr (bei grossen Zahlen) stark verkürzen.
Zahlen größer Wurzel(x) brauche ich nicht mehr untersuchen.
Wenn eine Zahl x einen Teiler t grösser Wurzel(x) hat, dann ist auch x/t ein Teiler von x und kleiner als Wurzel(x).
ps. Beim Programmieren gibt es zwei verschiedene kurz.
helmut
Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität.
Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen."
Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.
Registriert seit: 29.09.2015
Version(en): 2030,5
Also:
Code:
Sub M_snb()
y = Application.InputBox("Bitte geben Sie eine Zahl ein", "Primzahl Prüfung", , , , , , 1)
For j = 2 To Sqr(y)
If y Mod j = 0 Then Exit For
Next
MsgBox y & " ist " & IIf(j < Sqr(y), "k", "") & "eine Primzahl"
End Sub
Registriert seit: 28.09.2017
Version(en): Office 365
Hallo,
Der Code aus Beitrag #12 betrachtet 4 als Primzahl, was ja aber nicht korrekt ist.
MfG
Alooha
Registriert seit: 21.06.2016
Version(en): 2021
Hallo,
wenn 4 keine Primzahl ist, ist dann 5,4 auch keine Primzahl?
helmut
Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität.
Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen."
Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.
Registriert seit: 29.09.2015
Version(en): 2030,5
30.01.2020, 16:25
(Dieser Beitrag wurde zuletzt bearbeitet: 30.01.2020, 16:26 von snb.)
@Alooha
Du hast recht.
Der Code in #7 stimmt.
Registriert seit: 28.09.2017
Version(en): Office 365
30.01.2020, 22:49
(Dieser Beitrag wurde zuletzt bearbeitet: 30.01.2020, 22:49 von Alooha.)
Genau!
Und 5,4 ist selbstverständlich auch keine Primzahl, da nur natürliche Zahlen Primzahlen sein können ansonsten wäre es trotzdem keine, da sie durch sich selbst und durch 2 teilbar ist.
Registriert seit: 21.06.2016
Version(en): 2021
Hallo,
zu
Zitat:Du hast recht.
Der Code in #7 stimmt.
Hoppla, da ist wohl ein kurz zu kurz gekommen.
helmut
Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität.
Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen."
Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.
Registriert seit: 29.09.2015
Version(en): 2030,5
@Ego
Wie sieht denn deiner Code aus ?
Registriert seit: 16.08.2017
Version(en): 2007 / 2010 / Web
31.01.2020, 21:30
(Dieser Beitrag wurde zuletzt bearbeitet: 31.01.2020, 21:31 von Elex.)
Hey Leute,
macht nicht aus einem "<" ein ">" Problem.
KleinerGleich reicht auch.
Gruß Elex
