Thema Datum  Von Nutzer Rating
Antwort
19.07.2020 13:58:10 Gast2202
NotSolved
19.07.2020 15:14:22 Gast14770
NotSolved
19.07.2020 16:28:10 Gast2202
NotSolved
19.07.2020 17:43:52 Gast24304
NotSolved
19.07.2020 23:12:21 Gast22403
NotSolved
19.07.2020 17:52:31 Gast60965
NotSolved
19.07.2020 18:48:50 Gast45553
NotSolved
19.07.2020 20:43:29 Gast2202
NotSolved
19.07.2020 20:44:19 Gast2202
NotSolved
20.07.2020 05:48:07 Gast67513
NotSolved
20.07.2020 19:18:42 xlKing
NotSolved
20.07.2020 19:27:34 Gast2202
NotSolved
20.07.2020 20:31:29 xlKing
NotSolved
20.07.2020 21:48:24 Gast2202
NotSolved
Rot Primzahlengenerator
 20.07.2020 23:16:26 Gast2202
NotSolved
20.07.2020 23:44:15 Mase
NotSolved
20.07.2020 23:48:50 Gast2202
NotSolved
21.07.2020 00:01:18 Mase
NotSolved
21.07.2020 00:06:02 Gast2202
NotSolved
22.07.2020 02:24:11 Gast44480
NotSolved
22.07.2020 02:30:38 Gast44480
NotSolved
22.07.2020 04:18:45 Gast2202
NotSolved
22.07.2020 09:56:24 Gast7105
NotSolved
22.07.2020 12:40:03 Gast46832
NotSolved
21.07.2020 20:58:04 Ulrich
NotSolved
22.07.2020 14:00:46 Gast2202
NotSolved
22.07.2020 14:19:51 Ulrich
NotSolved
22.07.2020 15:50:28 Gast21224
NotSolved
22.07.2020 17:40:59 Gast95715
NotSolved
23.07.2020 11:45:25 Ulrich
NotSolved
23.07.2020 12:49:02 Mase
NotSolved

Ansicht des Beitrags:
Von:
Gast2202		 Datum:
20.07.2020 23:16:26		 Views:
654		 Rating:
     
Antwort:
  Ja
Thema:
Primzahlengenerator

Hier mit 6,75 s.

Private Sub CommandButton1_Click()
    Dim x1, x2, ti, i, max, pri
    i = 2
    ti = Timer
    max = 1000000
    Cells(1, 1) = 2
    For x1 = 3 To max Step 2
        pri = True
        For x2 = 3 To Sqr(x1) + 1 Step 2
            If x1 Mod x2 = 0 Then
                pri = False
                Exit For
            End If
        Next x2
        If pri Then
            Cells(i, 1) = x1
            i = i + 1
        End If
    Next x1
    MsgBox Timer - ti
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.07.2020 13:58:10 Gast2202
NotSolved
19.07.2020 15:14:22 Gast14770
NotSolved
19.07.2020 16:28:10 Gast2202
NotSolved
19.07.2020 17:43:52 Gast24304
NotSolved
19.07.2020 23:12:21 Gast22403
NotSolved
19.07.2020 17:52:31 Gast60965
NotSolved
19.07.2020 18:48:50 Gast45553
NotSolved
19.07.2020 20:43:29 Gast2202
NotSolved
19.07.2020 20:44:19 Gast2202
NotSolved
20.07.2020 05:48:07 Gast67513
NotSolved
20.07.2020 19:18:42 xlKing
NotSolved
20.07.2020 19:27:34 Gast2202
NotSolved
20.07.2020 20:31:29 xlKing
NotSolved
20.07.2020 21:48:24 Gast2202
NotSolved
Rot Primzahlengenerator
 20.07.2020 23:16:26 Gast2202
NotSolved
20.07.2020 23:44:15 Mase
NotSolved
20.07.2020 23:48:50 Gast2202
NotSolved
21.07.2020 00:01:18 Mase
NotSolved
21.07.2020 00:06:02 Gast2202
NotSolved
22.07.2020 02:24:11 Gast44480
NotSolved
22.07.2020 02:30:38 Gast44480
NotSolved
22.07.2020 04:18:45 Gast2202
NotSolved
22.07.2020 09:56:24 Gast7105
NotSolved
22.07.2020 12:40:03 Gast46832
NotSolved
21.07.2020 20:58:04 Ulrich
NotSolved
22.07.2020 14:00:46 Gast2202
NotSolved
22.07.2020 14:19:51 Ulrich
NotSolved
22.07.2020 15:50:28 Gast21224
NotSolved
22.07.2020 17:40:59 Gast95715
NotSolved
23.07.2020 11:45:25 Ulrich
NotSolved
23.07.2020 12:49:02 Mase
NotSolved