Ostermontag und Langeweile...
Sind 19650 Möglichkeiten.
Mal beispielhaft für 2, 4, 5, 8
Dieser kleine VBA-Code gibt sie in Spalte B aus:
Sub machs2()
Dim L As Long
Dim lngIndex As Long
Const a = 2
Const b = 4
Const c = 5
Const d = 8
Const lngMin = 222458
Const lngMax = 888542
ReDim out(1 To lngMax - lngMin, 1 To 1)
For L = lngMin To lngMax
If check1(L, a, b, c, d) = True Then
lngIndex = lngIndex + 1
out(lngIndex, 1) = L
End If
Next
Range("B1:B" & lngIndex) = out
End Sub
Function check1(lngZahl, w, x, y, z)
If InStr(1, lngZahl, w) Then
If InStr(1, lngZahl, x) Then
If InStr(1, lngZahl, y) Then
If InStr(1, lngZahl, z) Then
check1 = True
End If
End If
End If
End If
End Function