Zahlen zuteilen .. vereinfacht

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Zahlen zuteilen .. vereinfacht

Zahlen zuteilen .. vereinfacht von Mike vom 22.10.2014 15:30:05

AW: Zahlen zuteilen .. vereinfacht - von yummi am 22.10.2014 19:49:11
- AW: Zahlen zuteilen .. vereinfacht - von Mike am 22.10.2014 20:50:46
AW: Zahlen zuteilen .. vereinfacht - von Christian am 22.10.2014 19:51:30
- AW: Zahlen zuteilen .. vereinfacht - von Mike am 22.10.2014 20:48:37
AW: Zahlen zuteilen .. vereinfacht - von PeterK am 23.10.2014 08:34:59
- wow .. Zahlen zuteilen .. vereinfacht - von Mike am 23.10.2014 10:43:01

Betrifft: Zahlen zuteilen .. vereinfacht von: Mike
Geschrieben am: 22.10.2014 15:30:05

Hallo zusammen,

ich bin immer noch am Tüfteln und froh um Eure
Hilfe. Entgegen dem ursprünglichen Ansatz,

https://www.herber.de/forum/messages/1387196.html

geht es aktuell "nur" um die Auflöstung der
Gleichung

DJ * CI = GDB

Die Buchstaben stehen für Zahlen 0 - 9, wobei
keine Zahl doppelt vorkommt.

https://www.herber.de/bbs/user/93291.xlsx

Ist dies nun einfacher lösbar? Wie würde
die Gleichung richtig aufgesetzt?

Danke für Eure Hilfe,

Gruss
Mike

Betrifft: AW: Zahlen zuteilen .. vereinfacht von: yummi
Geschrieben am: 22.10.2014 19:49:11

Hallo Mike,

Sub loese()
Dim d As Integer
Dim j As Integer
Dim c As Integer
Dim i As Integer
Dim g As Integer
Dim b As Integer
Dim btreffer As Boolean

    btreffer = False
    For d = 0 To 9
        For j = 0 To 9
            For c = 0 To 9
                For i = 0 To 9
                    For g = 0 To 9
                        For b = 0 To 9
                            If (10 * d + j) * (10 * c + i) = 100 * g + 10 * d + b Then
                                Cells(2, 2).Value = b
                                Cells(2, 3).Value = c
                                Cells(2, 4).Value = d
                                Cells(2, 7).Value = g
                                Cells(2, 9).Value = i
                                Cells(2, 10).Value = j
                                btreffer = True
                            End If
                        Next b
                    Next g
                Next i
            Next c
        Next j
    Next d
    
    If btrefer = False Then
    MsgBox ("Keine Lösung")
    End If
End Sub

ergibt nicht lösbar.

Gruß
yummi

Betrifft: AW: Zahlen zuteilen .. vereinfacht von: Mike
Geschrieben am: 22.10.2014 20:50:46

Hallo summiert,

Danke für Deinen Makroeffort, so werte ich mal die
Anderen 41 Lösungen aus,

Gruss Mike

Betrifft: AW: Zahlen zuteilen .. vereinfacht von: Christian
Geschrieben am: 22.10.2014 19:51:30

Hallo Mike,
ich hab deinen letzten Thread nicht verfolgt, aber für die oben genannte Aufgabe finde ich folgende 41 Lösungen:

DJ * CI = GDB		
DJ	CI	GDB

02	53	106
02	54	108
03	67	201
03	68	204
03	69	207
04	27	108
07	58	406
08	63	504
12	43	516
14	37	518
14	65	910
16	57	912
17	54	918
18	34	612
19	27	513
19	43	817
28	15	420
34	07	238
35	18	630
38	14	532
39	06	234
42	13	546
49	03	147
52	03	156
53	18	954
56	17	952
57	08	456
58	13	754
59	06	354
63	09	567
64	12	768
64	15	960
67	04	268
72	08	576
73	12	876
83	07	581
97	02	194
97	03	291
98	02	196
98	03	294
98	04	392

Gruß
Christian

Betrifft: AW: Zahlen zuteilen .. vereinfacht von: Mike
Geschrieben am: 22.10.2014 20:48:37

Super, danke für deine Lösungen, wenn man die 0x nun noch weglässt,
Dann wird's schon bald überschaubar,

Gruss Mike

Betrifft: AW: Zahlen zuteilen .. vereinfacht von: PeterK
Geschrieben am: 23.10.2014 08:34:59

Hallo

Anbei die vollständig Lösung deiner Aufgabe:
A B C D E F G H I J
7 4 1 5 0 2 9 6 8 3

https://www.herber.de/bbs/user/93302.xlsm

Betrifft: wow .. Zahlen zuteilen .. vereinfacht von: Mike
Geschrieben am: 23.10.2014 10:43:01

Hallo Peter,

wow, cool, besten Dank. Das ist eine
grosse Hilfe,

Gruss
Mike