Stücklistenauflösung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Jürgen,
hier eine Wiedergabe deiner Tabelle - dann brauchen alle anderen das ZIP nicht herunterzuladwn und zu entpacken:

	A	B	C	D	E	F
1	Basisidaten
2	Stufe 0		Stufe 1	Stufe 2	Stufe 3	Stufe 4
3	Produkt	Position	Baugruppe	Bauteil	Komponente 1	Komponente 2
4	Produkt A	10	Baugruppe A	Bauteil A
5	Produkt A	10	Baugruppe A	Bauteil A
6	Produkt A	10	Baugruppe A	Bauteil B
7	Produkt A	10	Baugruppe A	Bauteil C	Komponente 1A
8	Produkt A	10	Baugruppe A	Bauteil C	Komponente 1B
9	Produkt A	20	Baugruppe B	Bauteil D
10	Produkt A	20	Baugruppe B	Bauteil E
11	Produkt A	20	Baugruppe B	Bauteil F
12	Produkt A	30	Baugruppe C	Bauteil F
13	Produkt A	40	Baugruppe D
14	Produkt B	10	Baugruppe A	Bauteil A	Komponente 1A	Komponente 2A
15	Produkt B	10	Baugruppe A	Bauteil A	Komponente 1B	Komponente 2B
16	Produkt B	10	Baugruppe A	Bauteil B	Komponente 1C
17	Produkt B	10	Baugruppe A	Bauteil B	Komponente 1D
18	Produkt B	20	Baugruppe B	Bauteil C	Komponente 1E	Komponente 2C
19	Produkt B	20	Baugruppe B	Bauteil C	Komponente 1F	Komponente 2D
20	Produkt B	20	Baugruppe B	Bauteil D	Komponente 1G
21	Produkt B	20	Baugruppe B	Bauteil D	Komponente 1H
22	Produkt B	50	Baugruppe C
23	Produkt B	60	Baugruppe D
24	Produkt B	70	Baugruppe E
25	Produkt B	80	Baugruppe F
26	Produkt B	90	Baugruppe G
27
28	Materialstückliste
29	Position	Stufe	Material	Menge
30		0	Produkt A	1
31	10	1	Baugruppe A	2
32		2	Bauteil A	2
33		2	Bauteil B	1
34		2	Bauteil C	1
35		3	Komponente 1A	1
36		3	Komponente 1B	1
37	20	1	Baugruppe B	1
38		2	Bauteil D	1
39		2	Bauteil E	1
40		2	Bauteil F	1
41	30	1	Baugruppe C	1
42		2	Bauteil F	1
43	40	1	Baugruppe D	1
44		0	Produkt B	1
45	10	1	Baugruppe A	1
46		2	Bauteil A	1
47		3	Komponente 1A	1
48		4	Komponente 2A	1
49		3	Komponente 1B	1
50		4	Komponente 2B	1
51		2	Bauteil B	1
52		3	Komponente 1C	1
53		3	Komponente 1D	1
54	20	1	Baugruppe B	1
55		2	Bauteil C	1
56		3	Komponente 1E	1
57		4	Komponente 2A	1
58		3	Komponente 1F	1
59		4	Komponente 2D	1
60		2	Bauteil D	1
61		3	Komponente 1G	1
62		3	Komponente 1H	1
63	50	1	Baugruppe C	1
64	60	1	Baugruppe D	1
65	70	1	Baugruppe E	1
66	80	1	Baugruppe F	1
67	90	1	Baugruppe G	1

Und dann meine Frage:
Woraus ergäbe sich die Menge 2 der Baugruppe A des Produkts A?
Es kann sein, dass Produkt A aus 2 Baugruppen A mit je einem Bauteil A besteht. Dann wäre die 2 richtig.
Es kann aber auch sein, dass Produkt A nur 1 Baugruppe A enthält, und BaugruppeA 2 BauteileA enthält.
Dann wäre die 2 hinter Bauteil A richtig., hinter Baugruppe A müsste aber wohl eine 1 stehen.
Das Ganze ist damit m. E. nicht eindeutig.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Option Explicit Sub StueckList() Dim lngQ As Long, arrQ, arrZ(), qq As Long, cc As Long, zz As Long lngQ = Cells(Rows.Count, 2).End(xlUp).Row - 3 arrQ = Cells(4, 1).Resize(lngQ, 6) ReDim arrZ(1 To 4, 1 To lngQ * UBound(arrQ, 2)) For qq = 1 To lngQ For cc = 1 To 6 If cc 2 And arrQ(qq, cc) "" Then zz = zz + 1 If cc = 3 Then arrZ(1, zz) = arrQ(qq, 2) arrZ(2, zz) = Application.Max(0, cc - 2) arrZ(3, zz) = arrQ(qq, cc) arrZ(4, zz) = 1 If zz > 1 Then If arrZ(2, zz) = arrZ(2, zz - 1) And _ arrZ(3, zz) = arrZ(3, zz - 1) Then zz = zz - 1 arrZ(4, zz) = arrZ(4, zz) + 1 End If End If End If Next cc Next qq ' Cells(3, 8).Resize(, 4) = Split("Position Stufe Material Menge") ReDim Preserve arrZ(1 To 4, 1 To zz) Cells(4, 8).Resize(zz, 4) = Application.Transpose(arrZ) End Sub

Sub StueckList2() Dim lngQ As Long, arrQ, arrZ(), qq As Long, cc As Long, zz As Long lngQ = Cells(Rows.Count, 2).End(xlUp).Row - 3 arrQ = Cells(4, 1).Resize(lngQ, 6) ReDim arrZ(1 To 5, 1 To lngQ * UBound(arrQ, 2)) For qq = 1 To lngQ If qq = 1 Then arrZ(1, 1) = arrQ(1, 1) ElseIf arrQ(qq, 1) arrQ(qq - 1, 1) Then arrZ(1, zz + 1) = arrQ(qq, 1) End If For cc = 3 To 6 If arrQ(qq, cc) "" Then zz = zz + 1 arrZ(2, zz) = arrQ(qq, 2) arrZ(3, zz) = Application.Max(0, cc - 2) arrZ(4, zz) = arrQ(qq, cc) arrZ(5, zz) = 1 If zz > 1 Then If arrZ(3, zz) = arrZ(3, zz - 1) And _ arrZ(4, zz) = arrZ(4, zz - 1) Then zz = zz - 1 arrZ(5, zz) = arrZ(5, zz) + 1 End If End If End If Next cc Next qq ReDim Preserve arrZ(1 To 5, 1 To zz) Cells(4, 8).Resize(zz, 5) = Application.Transpose(arrZ) End Sub

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread