Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Primzahlen errechnen

Primzahlen errechnen
05.07.2003 11:26:21
Aline
Hallo
ich brauche eine Sub, die mir folgendes leistet:
-Obergrenze muss eingegeben werden in A2
-Primzahlen werden von 1 bis Obergrenze errechnet
-Ausgabe der Primzahlen soll untereinander erfolgen von B2 bis ..
Danke

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Primzahlen errechnen
05.07.2003 12:18:03
Holger Levetzow
auf die Schnelle:

Sub primzahlen()
Range("B:B").ClearContents
unter = 2
ober = Range("a2")
z = 2
For i = unter To ober
If prim(i) = True Then
Cells(z, 2) = i
z = z + 1
End If
Next
End Sub


Function prim(i)
p = True
For j = i - 1 To 2 Step -1
If i Mod j = 0 Then p = False
Next
prim = p
End Function

Beispieldatei liegt unter: https://www.herber.de/bbs/user/127.xls
Holger

AW: Primzahlen errechnen
05.07.2003 11:29:59
lutz
Hallo Aline
http://www.excelformeln.de/formeln.html?welcher=129ttp://www.excelformeln.de/formeln.html?welcher=129
http://www.excelformeln.de/formeln.html?welcher=180ttp://www.excelformeln.de/formeln.html?welcher=180
http://www.excelformeln.de/formeln.html?welcher=225ttp://www.excelformeln.de/formeln.html?welcher=225
versuch mal aus dem Text die Adressen zu lesen. Das ist ein Effekt des neuen Forums
Gruß

Anzeige
AW: Primzahlen errechnen
05.07.2003 11:36:51
Aline
Hallo Lutz!
Danke aber ich möchte eine Prozedur schreiben.
Vielleicht kann mir jemand einen Tip geben. :-)

AW: Primzahlen errechnen
05.07.2003 12:15:57
Sigi E.
Hallo Aline,
probier' mal dies ...

Sub Primzahlen_ermitteln()
Dim Zahl As Long
Dim Divisor As Long
Dim Quotient As Double
Dim Text As String
Dim Titel As String
Dim Eingabe As String
Dim Teiler As Boolean
Dim Ogrenze As Long
Dim Ugrenze As Long
Dim i As Long
Dim j As Long
Titel = "Primzahlen ermitteln"
Text = "Bitte Zahl als 'Untergrenze' eingeben!"
Beep
Eingabe = InputBox(Text, Titel, "1")
If Eingabe = "" Or Not IsNumeric(Eingabe) Then
GoTo Fehler
Else
Ugrenze = CLng(Eingabe)
End If
Text = "Bitte Zahl als 'Obergrenze' eingeben!"
Beep
Eingabe = InputBox(Text, Titel, "1000")
If Eingabe = "" Or Not IsNumeric(Eingabe) Then
GoTo Fehler
Else
Ogrenze = Eingabe
End If
i = 2
j = 2
Range("B2:B65536").ClearContents
For Zahl = Ugrenze To Ogrenze
Teiler = False
Divisor = 2
Do Until Divisor ^ 2 > Zahl Or Teiler = True
Quotient = Zahl / Divisor
If Quotient = Int(Quotient) Then
Teiler = True
End If
Divisor = Divisor + 1
Loop
If Teiler = True Then
'keine Primzahl
Else
'Primzahl
Cells(i, 2).Value = Zahl
i = i + 1
If i Mod 500 = 0 Then
Application.StatusBar = "*** Bearbeite Zelle ''B" & i & "'' ***"
End If
j = j + 1
If j > 65533 Then
MsgBox "Spalte B ist voll!", vbCritical, "Abbruch"
Exit Sub
End If
End If
Next Zahl
Application.StatusBar = ""
Exit Sub
Fehler:
MsgBox "Sie haben keine Zahl eingegeben !" & Chr(13) & _
"Programm wird abgebrochen !", vbCritical, Titel
End Sub

Gruß
Sigi

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige