Kombinationen / Varianten hochzählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Erich,
... würde ich folgende Auswertung vornehmen. Nachfolgende Formel H3 nach rechts und die Formeln A4:E4 weit genug nach unten ziehend kopieren. Diese Formeln sollten auch schneller auswerten, als die SVERWEIS()-Formeln.
Die Auswertung für 2- und 3-fach entsprechend dem hier aufgezeigten entsprechend anpassen.

Arbeitsblatt mit dem Namen '4fach'
	A	B	C	D	E	F	G	H	I	J	K
1								3	4	5	6
2
3	Teil1	Teil2	Teil3	Teil4	Ausw			Teil1	Teil2	Teil3	Teil4
4	A	E	I	P	i.O.			A	E	I	P
5	A	E	I	Q	i.O.			B	F	J	Q
6	A	E	I	R	i.O.			C	G	K	R
7	A	E	I	S	i.O.				H	L	S
8	A	E	I	T	i.O.					M	T
9	A	E	I	U	i.O.						U
10	A	E	J	P	i.O.
11	A	E	J	Q	i.O.
12	A	E	J	R	i.O.
13	A	E	J	S	i.O.
14	A	E	J	T	i.O.
15	A	E	J	U	i.O.
16	A	E	K	P	i.O.

Zelle	Formel
H1	=ANZAHL2(H4:H15)
A4	=INDEX(H:H;KÜRZEN((ZEILE(G1)-1)/I$1/J$1/K$1;0)+4)&""
B4	=WENN(A4="";"";INDEX(I:I;KÜRZEN(REST(ZEILE(H1)-1;PRODUKT(I$1:K$1))/K$1/J$1;0)+4))
C4	=WENN(B4="";"";INDEX(J:J;KÜRZEN(REST(ZEILE(I1)-1;J$1*K$1)/K$1;0)+4))
D4	=WENN(C4="";"";INDEX(K:K;REST(ZEILE(J1)-1;K$1)+4))
E4	=WENN(SUMMENPRODUKT(ZÄHLENWENN(A4:D4;A4:D4))=4;"i.O.";"n.b.")

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Gruß Werner
.. , - ...

Sub EintraegeVonSpaltenKombinieren() 'baut eine exemplarische Datei Workbooks.Add xlWorksheet ActiveWorkbook.Names.Add Name:="KombinationenAbHier", _ RefersToR1C1:="=MAX(1,PRODUCT(COUNTA(R[-5]C:R[-1]C),RC[1]))" ActiveWorkbook.Names.Add Name:="Kombinationsfeld", _ RefersToR1C1:="=INDEX(R1C:R5C,MOD((ROW(R[-7]C)-1)/R6C[1],R6C/R6C[1])+1)" [A1:C1] = Split("Wasserpumpe Ovalflansch 10ccm") [A2:C2] = Split("Ölpumpe Rundflansch 20ccm") [A3:C3] = Split(" Vertikalflansch ") [A6:D6] = "=KombinationenAbHier" [A8:C19] = "=Kombinationsfeld" [A1:D5].Interior.Color = 44444 [A6:D6].Interior.Color = 22222 [A8:C19].Interior.Color = 55555 End Sub

Sub EintraegeVonSpaltenKombinieren10() 'baut eine exemplarische Tabelle ThisWorkbook.Worksheets.Add.Name = "Kombi10" ActiveWorkbook.Names.Add Name:="KombinationenAbHier10", _ RefersToR1C1:="=MAX(1,PRODUCT(COUNTA(R[-9]C:R[-1]C),RC[1]))" ActiveWorkbook.Names.Add Name:="Kombinationsfeld10", _ RefersToR1C1:="=INDEX(R1C:R9C,MOD((ROW(R[-11]C)-1)/R10C[1],R10C/R10C[1])+1)" [A1:C1] = Split("Wasserpumpe Ovalflansch 10ccm") [A2:C2] = Split("Ölpumpe Rundflansch 20ccm") [A3:C3] = Split(" Vertikalflansch ") [A10:D10] = "=KombinationenAbHier10" [A12:C30] = "=Kombinationsfeld10" '[A1:D5].Interior.Color = 44444 [A10:D10].Interior.Color = 22222 '[A8:C19].Interior.Color = 55555 End Sub

für 9 Zeilen und 4 Spalten:

Sub EintraegeVonSpaltenKombinieren104() 'baut eine exemplarische Tabelle
Blatt_Loeschen104
ThisWorkbook.Worksheets.Add.Name = "Kombi104"
ActiveWorkbook.Names.Add Name:="KombinationenAbHier104", _
RefersToR1C1:="=MAX(1,PRODUCT(COUNTA(R[-9]C:R[-1]C),RC[1]))"
ActiveWorkbook.Names.Add Name:="Kombinationsfeld104", _
RefersToR1C1:="=INDEX(R1C:R9C,MOD((ROW(R[-11]C)-1)/R10C[1],R10C/R10C[1])+1)"
[A1:C1] = Split("Wasserpumpe Ovalflansch 10ccm")
[A2:C2] = Split("Ölpumpe Rundflansch 20ccm")
[A3:C3] = Split(" Vertikalflansch ")
[A10:E10] = "=KombinationenAbHier104"
[A12:D30] = "=Kombinationsfeld104"
'[A1:D5].Interior.Color = 44444
[A10:E10].Interior.Color = 22222
'[A8:C19].Interior.Color = 55555
End Sub

Sub Blatt_Loeschen104()
Dim x As Long
For x = 1 To Worksheets.Count
If Worksheets(x).Name = "Kombi104" Then
Application.DisplayAlerts = False
Worksheets(x).Delete
Application.DisplayAlerts = True
Exit For
End If
Next
End Sub

für 9 Zeilen und 5 Spalten

Sub EintraegeVonSpaltenKombinieren105() 'baut eine exemplarische Tabelle
Blatt_Loeschen105
ThisWorkbook.Worksheets.Add.Name = "Kombi105"
ActiveWorkbook.Names.Add Name:="KombinationenAbHier105", _
RefersToR1C1:="=MAX(1,PRODUCT(COUNTA(R[-9]C:R[-1]C),RC[1]))"
ActiveWorkbook.Names.Add Name:="Kombinationsfeld105", _
RefersToR1C1:="=INDEX(R1C:R9C,MOD((ROW(R[-11]C)-1)/R10C[1],R10C/R10C[1])+1)"
[A1:C1] = Split("Wasserpumpe Ovalflansch 10ccm")
[A2:C2] = Split("Ölpumpe Rundflansch 20ccm")
[A3:C3] = Split(" Vertikalflansch ")
[A10:F10] = "=KombinationenAbHier105"
[A12:E30] = "=Kombinationsfeld105"
'[A1:D5].Interior.Color = 44444
[A10:F10].Interior.Color = 22222
'[A8:C19].Interior.Color = 55555
End Sub

Sub Blatt_Loeschen105()
Dim x As Long
For x = 1 To Worksheets.Count
If Worksheets(x).Name = "Kombi105" Then
Application.DisplayAlerts = False
Worksheets(x).Delete
Application.DisplayAlerts = True
Exit For
End If
Next
End Sub

mfg

Beliebteste Forumthreads (12 Monate)

Kombinationen / Varianten hochzählen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread