sechsstellige Zahlen(Ziffern 1-8) sollen mit 5 Muster-Zahlen verglichen werden. Eine
Anzahl n Ziffern sollen an gleicher Stelle stehen und eine Anzahl n1 gleiche Ziffern sollen an falscher Stelle stehen. Beispiel: Eine der 5 Muster-Zahlen m1=118577. Gesucht
die 6-stellige Zahl, bei der 3 Ziffern an richtiger Stelle stehen und 2 an falscher.
158371 ist hier WAHR. Die Ziffern 1,8,7 stehen an richtiger Stelle und 1,5 an falscher
Stelle. Leider finde ich keine Lösung für die Ziffern an falscher Stelle. Kann jemand helfen? Für die an richtiger Stelle: Function Ar(ByVal s1, s2, z1) As Boolean 'An richtiger Stelle Dim i&, n& For i = 1 To Len(s1) If Mid$(s1, i, 1) = Mid$(s2, i, 1) Then n = n + 1 Next If n z1 Then Exit Function Ar = True End Function
Gruß Alifa