@Ewald: Datensatz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub auslesen() Dim x Dim arrErg Dim Dic As Object Dim myarr myarr = Range(Cells(1, 2), Cells(72, 8)) Set Dic = CreateObject("Scripting.dictionary") For Each x In myarr Dic(x) = 0 Next arrErg = WorksheetFunction.Transpose(Dic.Keys) Cells(1, 10).Resize(UBound(arrErg, 1) - LBound(arrErg, 1) + 1, 1).Value = arrErg End Sub Sub suchen() Dim c Dim i For i = 1 To 176 For Each c In [B1:H72] If c.Value = Cells(i, 10).Value Then c.Interior.ColorIndex = 4 Exit For End If Next Next i End Sub Sub zählen() Dim c Dim i For Each c In [B1:H72] If c.Interior.ColorIndex = 4 Then i = i + 1 End If Next Cells(3, 11).Value = i End Sub

Hallo Larry,
wenn ich dich richtig verstanden habe, dann im Prinzip so:
1: erstelle alle möglichen Kombinationen aus 18 Gruppen mit jeweils 4 Bögen (ergibt 4¹⁸, also ca. 68 Milliarden Kombinationen)
Bsp:
1-5-9-13- ... 57-61-65-69
1-5-9-13- ... 57-61-65-70
1-5-9-13- ... 57-61-65-71
1-5-9-13- ... 57-61-65-72
1-5-9-13- ... 57-61-66-69
1-5-9-13- ... 57-61-66-70
1-5-9-13- ... 57-61-66-71
1-5-9-13- ... 57-61-66-72
1-5-9-13- ... 57-61-67-69
...
1-5-9-13- ... 57-62-65-69
usw. bis:
4-8-12-16-... 60-64-68-72
2: prüfe für jede Kombination die Anzahl an Bögen, deren Nummern nicht mehrfach vorkommen.
3: merke dir jeweils nur die Kombinationen, deren Anzahl maximal ist.
4: Als Ergebnis erhälst du eine Liste aller Kombinationen mit max. Anzahl an untersch. Nummern. Im günstigsten Fall ist das nur eine Kombination, im ungünstigsten Fall enthält die Liste 68 Milliarden Eintrage.
Wenn du hier einen effizienten Algorithmus entwickelst, dann lässt sich das Optimum wahrscheinlich auch noch in vertretbarer Zeit (ggf. einige Minuten) ermitteln.
Grüße
Christian

Hallo Larry,
hier mal eine Übersicht für 126 Sticker.
die ersten 10 Bögen die sich vollkommen unterscheiden wurden gesetzt, danach wurden Zeile für Zeile alle 72 Bögen per Schleife durchlaufen. Nach einem Durchlauf wurde dann jeweils um eine Spalte reduziert.
Die Stadionpicker 232/236 wurden manuell hinzugefügt, da die Bögen die diese beinhalten nur doppelte Sticker enthalten.

  A B C D E F G H
1 Bogen 1 4 33 66 116 124 205 219
2 Bogen 6 11 22 120 172 193 208 220
3 Bogen 9 10 32 62 71 134 151 221
4 Bogen 16 57 64 90 105 175 210 222
5 Bogen 19 12 34 137 178 197 211 223
6 Bogen 22 30 67 138 181 192 212 224
7 Bogen 31 25 48 65 119 176 215 226
8 Bogen 35 55 72 100 129 152 199 227
9 Bogen 49 8 47 80 93 153 204 231
10 Bogen 68 18 52 125 184 202 217 235
11 Bogen 10 26 59 81 132 156 187  
12 Bogen 23 45 58 77 121 154 213  
13 Bogen 14 24 40 88 102 162    
14 Bogen 63 46 98 127 150 168   234
15 Bogen 4 31 70 117 143      
16 Bogen 21 14 44 76 126      
17 Bogen 52 68 78 112 136      
18 Bogen 33 28 43 60        
19 Bogen 39 41 56 86       228
20 Bogen 12 54 118          
21 Bogen 43 35 91         229
22 Bogen 45 9 49         230
23 Bogen 59 36           233
24 Bogen 27 16           225
25 manuell             232
26 manuell             236
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Gruß Ewald

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H
1	Bogen 1	4	33	66	116	124	205	219
2	Bogen 6	11	22	120	172	193	208	220
3	Bogen 9	10	32	62	71	134	151	221
4	Bogen 16	57	64	90	105	175	210	222
5	Bogen 19	12	34	137	178	197	211	223
6	Bogen 22	30	67	138	181	192	212	224
7	Bogen 31	25	48	65	119	176	215	226
8	Bogen 35	55	72	100	129	152	199	227
9	Bogen 49	8	47	80	93	153	204	231
10	Bogen 68	18	52	125	184	202	217	235
11	Bogen 10	26	59	81	132	156	187
12	Bogen 23	45	58	77	121	154	213
13	Bogen 14	24	40	88	102	162
14	Bogen 63	46	98	127	150	168		234
15	Bogen 4	31	70	117	143
16	Bogen 21	14	44	76	126
17	Bogen 52	68	78	112	136
18	Bogen 33	28	43	60
19	Bogen 39	41	56	86				228
20	Bogen 12	54	118
21	Bogen 43	35	91					229
22	Bogen 45	9	49					230
23	Bogen 59	36						233
24	Bogen 27	16						225
25	manuell							232
26	manuell							236

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread