Tabelle nach Wert durchsuchen, und jede Zeile ausspucken die diesen Wert besitzt

[THE ARCHITECT]

Hast du schon ein Pivottable versucht zu verwenden ?

ja... mit einem Pivottable habe ich es aber nicht so hinbekommen wie ich wollte....

[snb]

Lade dann eine Beispieldatei hoch.

[THE ARCHITECT]

Okay,

ich habe jetzt nochmal eine Beispieldatei hochgeladen.
In der Datei habe ich die Formel von Jockel verwendet.

Die Formel führt das Projekt 103 2x auf, da Paula sowohl in Phase 1 als auch in Phase 3 auf dem Projekt arbeitet.
Ich möchte aber, dass das nur 1x aufgeführt wird.

Vielen Dank für die Hilfe im voraus.


  Beispieldatei.xlsx (Größe: 12,61 KB / Downloads: 5)


EDIT: Ich habe das Problem jetzt mit einem "Spezialfilter" lösen können.
http://www.online-excel.de/excel/singsel.php?f=6

jetzt stellt sich jedoch die Frage, wie sich der Filter verhält wenn die Stammdaten geändert werden...

[shift-del]

Hallo Architekt

Arbeitsblatt mit dem Namen 'Tabelle1 (2)'

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

12

Name

Paula

13

14

1

Herr Tomate

101

Laden 1

Paula

Franz

2

15

1

Herr Gurke

102

Laden 2

Paula

Lee

Mark

3

16

2

Frau Wasabi

103

Wohnhaus 1

Franz

Paula

Paula

4

17

18

Name	Bezug
Bereich	='Tabelle1 (2)'!$E$2:$Q$9
Kriterium	='Tabelle1 (2)'!$B$12

Zelle	Formel
A14	=WENNFEHLER(INDEX(A:A;$R14);"")
C14	=WENNFEHLER(INDEX(C:C;AGGREGAT(15;6;ZEILE(Bereich)/(MMULT(--(Bereich=Kriterium);ZEILE(INDIREKT("1:"&SPALTEN(Bereich)))^0)>0);ZEILE(A1)));"")
R14	=WENN(C14="";"";VERGLEICH(C14;C:C;0))

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

[snb]

In VBA:

Code:

Sub M_snb()
   sn = Sheet1.Cells(1).CurrentRegion
   c00 = 1
   
   For j = 1 To UBound(sn)
     If Not IsError(Application.Match("Paula", Application.Index(sn, j), 0)) Then c00 = c00 & "_" & j
   Next
   sq = Application.Transpose(Split(c00, "_"))
   
   Cells(20, 1).Resize(UBound(sq), UBound(sn, 2)) = Application.Index(sn, sq, [transpose(row(1:17))])
End Sub