makro anpassen
alifa
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
Anzeige