Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

makro anpassen

Forumthread: makro anpassen

makro anpassen
alifa
Hallo,
wie kann ich dieses Makro ändern, damit nur die Primzahlen ausgegeben werden, nach denen sich eine bestimmte Primzahlen-Lücke befindet. Beispiel:Nach der Primzahl 1327 befindet sich eine Lücke von 34 Nicht-Primzahlen. Diese Zahl soll abgefragt werden.(InputBox)

Option Explicit
Sub DieLuecke()
Dim a&,  z%, t!
t = Timer
Cells.ClearContents
For a = 1000 To 3000
If Prim(a) Then
Cells(z + 1, 1) = a
z = z + 1
End If
Next
MsgBox Round(Timer - t, 1)
End Sub

Function Prim(ByVal Number As Long) As Boolean
Dim Counter As Long
If Number Mod 2 = 0 Or Number = 1 Then
If Number 2 Then
Prim = False
Exit Function
End If
End If
For Counter = 1 To Number - 1 Step 2
If Number Mod Counter = 0 Then
If Counter 1 Then
Prim = False
Exit Function
End If
End If
Next Counter
Prim = True
End Function
VG Alifa
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Primzahl-Lücken
21.11.2010 07:47:46
Erich
Hi Erhard,
probier mal

Sub DieLuecke2()
Dim nn As Long, aa As Long, zz As Long, tt As Single, dd As Long
tt = Timer
Cells.ClearContents
aa = 1000
dd = InputBox("Eingabe", "Eingabe", "34")
For nn = 1000 To 30000
If Prim(nn) Then
If nn >= aa + dd Then
zz = zz + 1
Cells(zz, 1) = aa
End If
aa = nn
End If
Next
MsgBox Round(Timer - tt, 1)
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Primzahl-Lücken
21.11.2010 11:42:43
alifa
Hallo Erich,
das passt genau! Bei mir hat dieZeile aa=nn nach dem ersten End If gefehlt.
Viele Grüße nach Kamp- Lintfort
Erhard
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige