Liste in Tabelle umwandeln

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Andre,
Option Explicit Sub Umschreiben() Dim LoLetzte As Long Dim LoI As Long Dim RaFound As Range Dim RaFound2 As Range ' Spalte For LoI = 4 To IIf(IsEmpty(Cells(Rows.Count, 1)), _ Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 4)), _ Cells(Rows.Count, 4).End(xlUp).Row, Rows.Count) + 1 Set RaFound = Columns(4).Find(Cells(LoI, 1), , , xlPart, , xlNext) If RaFound Is Nothing Then Cells(LoLetzte, 4) = Cells(LoI, 1) End If Next LoI ' Zeile For LoI = 4 To IIf(IsEmpty(Cells(Rows.Count, 2)), _ Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count) + 1 LoLetzte = IIf(IsEmpty(Cells(1, Columns.Count)), Cells(1, _ Columns.Count).End(xlToLeft).Column, Columns.Count) + 1 If LoLetzte "" Then Set RaFound = Columns(4).Find(Cells(LoI, 1), , , xlPart, , xlNext) Set RaFound2 = Range(Cells(1, 4), Cells(1, Columns.Count)).Find(Cells(LoI, 2) _ , , , xlPart, , xlNext) Cells(RaFound.Row, RaFound2.Column) = Cells(LoI, 3) End If Next LoI Set RaFound2 = Nothing Set RaFound = Nothing End Sub

Hallo Andre,
Tabelle1

	A	B	C	D	E	F
1		Berlin	Köln	Hamburg
2	Schraube	32	54	0
3	Nagel	23	93	38
4	Säge	0	46	0
5	Hammer	73	82	10
6
7
8
9
10
11
12
13

Formeln der Tabelle

Zelle	Formel
B1	=Blatt1!B3
C1	{=WENN(SUMME(ZÄHLENWENN(Blatt1!$B$3:$B$100;$B$1:B1))>=SUMME((Blatt1!$B$3:$B$100<>"")1); "";INDEX(Blatt1!$B$3:$B$100;VERGLEICH(1;(ZÄHLENWENN($B$1:B1;Blatt1!$B$3:$B$100)=0)(Blatt1!$B$3:$B$100<>""); 0)))}
D1	{=WENN(SUMME(ZÄHLENWENN(Blatt1!$B$3:$B$100;$B$1:C1))>=SUMME((Blatt1!$B$3:$B$100<>"")1); "";INDEX(Blatt1!$B$3:$B$100;VERGLEICH(1;(ZÄHLENWENN($B$1:C1;Blatt1!$B$3:$B$100)=0)(Blatt1!$B$3:$B$100<>""); 0)))}
A2	=Blatt1!A3
B2	=WENN(UND(B$1<>"";$A2<>""); SUMMENPRODUKT((Blatt1!$A$3:$A$100=$A2)(Blatt1!$B$3:$B$100=B$1)Blatt1!$C$3:$C$100); "")
C2	=WENN(UND(C$1<>"";$A2<>""); SUMMENPRODUKT((Blatt1!$A$3:$A$100=$A2)(Blatt1!$B$3:$B$100=C$1)Blatt1!$C$3:$C$100); "")
D2	=WENN(UND(D$1<>"";$A2<>""); SUMMENPRODUKT((Blatt1!$A$3:$A$100=$A2)(Blatt1!$B$3:$B$100=D$1)Blatt1!$C$3:$C$100); "")
A3	{=WENN(SUMME(ZÄHLENWENN(Blatt1!$A$3:$A$100;$A$2:A2))>=SUMME((Blatt1!$A$3:$A$100<>"")1); "";INDEX(Blatt1!$A$3:$A$100;VERGLEICH(1;(ZÄHLENWENN($A$2:A2;Blatt1!$A$3:$A$100)=0)(Blatt1!$A$3:$A$100<>""); 0)))}
B3	=WENN(UND(B$1<>"";$A3<>""); SUMMENPRODUKT((Blatt1!$A$3:$A$100=$A3)(Blatt1!$B$3:$B$100=B$1)Blatt1!$C$3:$C$100); "")
C3	=WENN(UND(C$1<>"";$A3<>""); SUMMENPRODUKT((Blatt1!$A$3:$A$100=$A3)(Blatt1!$B$3:$B$100=C$1)Blatt1!$C$3:$C$100); "")
D3	=WENN(UND(D$1<>"";$A3<>""); SUMMENPRODUKT((Blatt1!$A$3:$A$100=$A3)(Blatt1!$B$3:$B$100=D$1)Blatt1!$C$3:$C$100); "")

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

« Gruß Sepp »

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread