eine kleine Rätselfrage

Zitat von HSVMichi

Das triffta uf dein Beispiel zu:

Die Rechnung scheint dich schon etwas angeregt zu haben wenn du plötzlich in Dialekt verfällst.

Gruß
Frank

Hm,

wenn ich jetzt - so auf die Schnelle - recht liege, =49.

Hallo Michi,

manchmal ist "durchnudeln" besser als tiefschürfend - und falsch - zu überlegen.

Probiers mal hiermit, Du Excel-Experte:

Sub TwoDigitNumber()

s = 0
m = 1
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
For l = 0 To 9
Cells(1, 1).Value = i
Cells(1, 2).Value = j
Cells(2, 1).Value = k
Cells(2, 2).Value = l
a = Cells(1, 1).Value * 10 + Cells(1, 2).Value
b = Cells(2, 1).Value * 10 + Cells(2, 2).Value
c = Cells(1, 1).Value * 10 + Cells(2, 1).Value
d = Cells(1, 2).Value * 10 + Cells(2, 2).Value
If a + b + c + d = 200 Then
s = s + 1
Cells(m, 3).Value = a
Cells(m, 4).Value = b
Cells(m, 5).Value = c
Cells(m, 6).Value = d
m = m + 1
End If
Next l
Next k
Next j
Next i
Cells(1, 8).Value = s

End Sub

Berichtigung:

49 sind es, wenn man die Zahlen 0-9 verwendet. Bei 1-9 sind es aber immer noch 40.

Man ersetze dabei bei allen 4 Schleifen den Anfang durch 1 statt 0.

9 9 17 92 19 72 200 40
9 9 18 82 18 82 200
19 72 17 92 200
25 93 29 53 200
26 83 28 63 200
27 73 27 73 200
28 63 26 83 200
29 53 25 93 200
33 94 39 34 200
34 84 38 44 200
35 74 37 54 200
36 64 36 64 200
37 54 35 74 200
38 44 34 84 200
39 34 33 94 200
41 95 49 15 200
42 85 48 25 200
43 75 47 35 200
44 65 46 45 200
45 55 45 55 200
46 45 44 65 200
47 35 43 75 200
48 25 42 85 200
49 15 41 95 200
51 76 57 16 200
52 66 56 26 200
53 56 55 36 200
54 46 54 46 200
55 36 53 56 200
56 26 52 66 200
57 16 51 76 200
61 57 65 17 200
62 47 64 27 200
63 37 63 37 200
64 27 62 47 200
65 17 61 57 200
71 38 73 18 200
72 28 72 28 200
73 18 71 38 200
81 19 81 19 200

Ah,

wie so oft liegt in der Schnelligkeit auch der Fehler.

Jetzt muss ich aber darüber nachdenken....

Also gut, die 22 vom Internet bestätigt.

Das (be)richtig(t)e Makro:

Sub TwoDigitNumber()

s = 0
m = 1
For i = 1 To 9
For j = 1 To 9
For k = 1 To 9
For l = 1 To 9
Cells(1, 1).Value = i
Cells(1, 2).Value = j
Cells(2, 1).Value = k
Cells(2, 2).Value = l
a = Cells(1, 1).Value * 10 + Cells(1, 2).Value
b = Cells(2, 1).Value * 10 + Cells(2, 2).Value
c = Cells(1, 1).Value * 10 + Cells(2, 1).Value
d = Cells(1, 2).Value * 10 + Cells(2, 2).Value
If a + b + c + d = 200 And ((l <> k) And (l <> j) And (l <> i) And (k <> j) And (k <> i) And (j <> i)) Then
s = s + 1
Cells(m, 3).Value = a
Cells(m, 4).Value = b
Cells(m, 5).Value = c
Cells(m, 6).Value = d
m = m + 1

End If

Next l
Next k
Next j
Next i
Cells(1, 8).Value = s

End Sub

Zitat von hope68

Gut, jetzt muss ich nur noch meinem 9-jährigen Sohn beibringen wie man Makros erstellt, damit er seine Schulaufgaben lösen kann

Fördert das logische denken.

Aber, ein Pferdefuß ist schon dabei: nicht nur, dass man manchmal zum Programmieren länger braucht als zum üblichen lösen, man mus auch prüfen, ob man nicht - wie ich hier schon 2x - einem logischen Trugschluss aufgesessen ist...

Zitat von HSVMichi

Aha, gerade das Beispiel aus dem Internet gesehen.

Meine Berechnung stimmt schon: die vierte Endziffer ist immer um 1 höher als die 1.Endziffer.

Mein Fehler: ich bin immer von a=1 und d=2 ausgegangen, aber natürlich geht es bis a=7 und d=8. So'n Shiet.

Hm, ja.

So hat jeder - auch mit Excel - seine eigene Art Probleme zu lösen...

Oder: viele Wege führen nach Rom, einer über Excel..

Zitat von HSVMichi

Naja, über Excel lässt Du nur eine Formel berechnen, die Du nichtsdestotrotz vorher bilden musst.

Nö. In diesem Fall prüfe ich nur alle Möglichkeiten.

O.K. manche werden das jetzt primitiv finden, es ist aber ungeheuer wirkungsvoll...