@Ewald: Datensatz

Larry · 2014-09-02T18:27:43+00:00

Hi Ewald, leider ist mein Thread hier irgendwie verschwunden. Ich habe jeddoch den kompletten Datensatz der 72 Bögen. Ich schaffe es einfach nicht, 18 komplett verschiedene Bögen herauszufiltern. Heisst, wenn ich mir 18 Bögen raussuche, dass keiner von Bogen 18 auf den Bögen 1-17 vorhanden ist. Ich lad mal den Datensatz hier hoch. Vielleicht kannst du mir ja helfen. https://www.herber.de/bbs/user/92445.xlsx

Hallo Larry,
führe mal die drei folgenden Makros der Reihe nach aus

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

Nach dem ersten Makro nur die Spalte J aufsteigend sortieren und die zwei anderen Makros starten.
In K3 siehst du die Anzahl eindeutiger Werte (176)
Im Zahlenbereich siehst das nur 2 Bögen die nur eindeutige Werte haben (Bogen 1 + 9)
Aus den Werten läßt sich erkennen das wahrscheinlich ab 219 die Stadiensticker sind (viermal vorhanden)
Gruß Ewald

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

Forumthread: @Ewald: Datensatz

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

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

@Ewald: Datensatz

Forumthread: @Ewald: Datensatz

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread