Es ist unnötige verschwendung an Zeit und Energie!
Es sind 10^40 Kombinationen. Bis 10^15 kann Variant-Datentyp hinhalten, bei größeren Werten hat er aber nicht genug Genauigkeit.
Wenn die Daten nur so ‚just vor fun‘ generiert werden sollen, muss es mit unterlageten Schleifen und im stringformat geschehen.
z.B.:
For i = 0 To 99
For j = 0 To 99
Debug.Print IIf(i \> 0, i, "") & j
Next j
Next i
Bereiche können erhöht werden, ohne ‚DoEvents‘ in der innersten Schleife, würde ich das ‚Diing‘ aber nicht starten
Hä ?
das verstehe ich nicht so ganz.
40-stellige Zahlen bestehend aus allen Ziffern 0 - 9?
Das hiesse ja von
1.000.000.000.000.000.000.000.000.000.000.000.000.000
bis
9.999.999.999.999.999.999.999.999.999.999.999.999.999
alle Werte. Ist das so gemeint?
Kann ich mir kaum vorstellen - das wäre ja total simpel.
Bitte beschreib Dein Problem mal ein wenig präziser.
Dann kann man Dir vielleicht auch helfen.
Danke und Gruß,
Jochen
Option Base 1
Sub kombinationen_mit_x_stellen()
Dim ziffern() As String, index As Integer, ziffer As Integer
Const stellen = 4 'zum testen, im ernstfall hier 40 eintragen
ReDim ziffern(stellen)
For index = 1 To stellen
ziffern(index) = „0“
Next index
On Error GoTo ende
Do
Debug.Print Join(ziffern, „“)
For index = stellen To 0 Step -1
ziffer = 1 + ziffern(index)
ziffern(index) = Right(ziffer, 1)
If ziffer