Zeilenweise Werte mit x ausgeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Marc,
hab hier keine Excel 2007, vermute aber, das dies deine Frage beantwortet:
Tabelle1

	A	B	C
1	Artikel	Komponente
2	100		101
3	101	x	104
4	102		106
5	103		109
6	104	x	117
7	105		121
8	106	x	124
9	107		#ZAHL!
10	108		#ZAHL!
11	109	x
12	110
13	111
14	112
15	113
16	114
17	115
18	116
19	117	x
20	118
21	119
22	120
23	121	x
24	122
25	123
26	124	x
27	125

Zelle	Formel
C2	{=INDEX($A$1:$A$27;KKLEINSTE(WENN($B$2:$B$27="x";ZEILE($B$2:$B$27);"");ZEILE(C1)))}
C3	{=INDEX($A$1:$A$27;KKLEINSTE(WENN($B$2:$B$27="x";ZEILE($B$2:$B$27);"");ZEILE(C2)))}
C4	{=INDEX($A$1:$A$27;KKLEINSTE(WENN($B$2:$B$27="x";ZEILE($B$2:$B$27);"");ZEILE(C3)))}
C5	{=INDEX($A$1:$A$27;KKLEINSTE(WENN($B$2:$B$27="x";ZEILE($B$2:$B$27);"");ZEILE(C4)))}
C6	{=INDEX($A$1:$A$27;KKLEINSTE(WENN($B$2:$B$27="x";ZEILE($B$2:$B$27);"");ZEILE(C5)))}
C7	{=INDEX($A$1:$A$27;KKLEINSTE(WENN($B$2:$B$27="x";ZEILE($B$2:$B$27);"");ZEILE(C6)))}
C8	{=INDEX($A$1:$A$27;KKLEINSTE(WENN($B$2:$B$27="x";ZEILE($B$2:$B$27);"");ZEILE(C7)))}
C9	{=INDEX($A$1:$A$27;KKLEINSTE(WENN($B$2:$B$27="x";ZEILE($B$2:$B$27);"");ZEILE(C8)))}
C10	{=INDEX($A$1:$A$27;KKLEINSTE(WENN($B$2:$B$27="x";ZEILE($B$2:$B$27);"");ZEILE(C9)))}

{} Matrixformel mit Strg+Umschalt+Enter abschließen

Tabellendarstellung in Foren

Rückmeldung wäre nett.
Gruß
David

Marc,
leider kann ich mit deiner zip-Datei nichts anfangen. Da stehen irgendwelche xml-Sachen anstelle einer xlsx-Datei.
Ich glaube aber dein Problem auch so verstanden zu haben. Ich sende dir hier einen Lösungsansatz (ist Excel 2003, müsste aber in Excel 2007 auch funktionieren).
https://www.herber.de/bbs/user/62681.xls
Die Spalte A in Sheet2 ist eine Hilfsspalte. Sie ermittelt die Position der relevanten Zeilen in der Tabelle. Gesucht wird in Spalte B in Sheet1 nach "x", und zwar immer im verbleibenden Bereich nach der bereits ermittelten Position. Deshalb die BEREICH.VERSCHIEBEN-Funktion. Wichtig ist, dass die komplette Tabelle erfasst wird. Da ich die Größe der Tabelle nicht kenne, durchsuche ich die gesamte Spalte. Damit bin ich variabel. (65536 ist die maximale Zeilenanzahl in Excel 2003. In Excel 2007 ist dieser Wert größer. Wenn die Größe der Tabelle fest ist, nimmst du die Zeilenanzahl der Tabelle +1.)
In Spalte B ermittle ich den zur Position gehörigen Artikel. Weitere zum Artikel gehörigen Werte kann man mit der INDEX-Funktion oder der SVERWEIS-Funktion (wie gezeigt) übernehmen.
Der einzige Nachteil ist, dass man nicht weiß, wie viele Zeilen zu übernehmen sind. Deshalb muss man die Formel in Spalte A so weit nach unten kopieren, bis #NV erscheint. Falls sich die Größe der Ursprungstabelle ändert, muss man das immer wider prüfen. Vielleicht findest du da etwas eleganteres.
Viel Spaß
Ralf

Sub tt() Dim rngC As Range For Each rngC In Sheets(1).Range("A1").CurrentRegion If rngC = "x" Then With Sheets(2) .Cells(Rows.Count, 1).End(xlUp).Offset(1) = rngC.Offset(, -rngC.Column + 1) .Cells(Rows.Count, 2).End(xlUp).Offset(1) = rngC.Offset(-rngC.Row + 1) End With End If Next End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread