Zahl auswerten
Alifa
wie kann ich mit einem Makro alle fünfstelligen Zahlen (10000-99999) auf Folgendes prüfen. Aus den BENACHBARTEN Ziffern dieser Zahl sollen alle möglichen 1,2,3,4-stelligen Zahlen gebildet werden und geprüft werden, ob sie Primzahlen sind. Beispiel die Zahl 12345. Daraus kann man folgende Zahlen bilden: 1,2,3,4,5,12,23,34,45,123,234,345,1234,2345, 12345. Davon sind 3 Primzahlen. Die MsgBox soll die fünfstellige Zahl anzeigen, welche die meisten Primzahlen bilden kann.
Mein Ansatz:
Alle 15 Möglichkeiten auf "Primzahl" prüfen mit einer IsPrime-Funktion. a1=CInt(left$(a,3) und weiter
If IsPrime(a1) Then...Und ähnlich mit allen 15 Möglichkeiten. Wie die fünfstellige Zahl herausgefiltert werden soll, welche die meisten Primzahlen erlaubt, ermöglicht...?
Gruß Alifa