Registriert seit: 06.12.2019
Version(en): Excel 16.31 mac
29.01.2020, 07:27
(Dieser Beitrag wurde zuletzt bearbeitet: 29.01.2020, 07:28 von kurtkurt57.
Bearbeitungsgrund: RS
)
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?
Registriert seit: 11.04.2014
Version(en): Office 2003 - Office 2007 - Office 365
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Registriert seit: 11.04.2014
Version(en): Office 2003 - Office 2007 - Office 365
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
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Registriert seit: 06.12.2019
Version(en): Excel 16.31 mac
29.01.2020, 09:35
(Dieser Beitrag wurde zuletzt bearbeitet: 29.01.2020, 09:40 von kurtkurt57.)
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.
QZneu.xlsx (Größe: 12,4 KB / Downloads: 7)
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
(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.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 06.12.2019
Version(en): Excel 16.31 mac
Problem erledigt, eine Formel von weiter unten genommen...
Danke nochmals für die Site!
Registriert seit: 29.09.2015
Version(en): 2030,5
29.01.2020, 11:07
(Dieser Beitrag wurde zuletzt bearbeitet: 29.01.2020, 11:08 von snb.)
@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
Registriert seit: 11.04.2014
Version(en): Office 2003 - Office 2007 - Office 365
Hallo snb,
so kurz?
Danke!
Gruß
Marcus
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Registriert seit: 20.06.2016
Version(en): 2021
29.01.2020, 11:35
(Dieser Beitrag wurde zuletzt bearbeitet: 29.01.2020, 11:36 von Ego.)
Hallo,
die Schleife bitte nur bis Wurzel(x).
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: 11.04.2014
Version(en): Office 2003 - Office 2007 - Office 365
Hallo Helmut,
versuche ja weiter zu lernen. Was soll Dein Kommentar bedeuten?
Gruß
Marcus
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
