Clever-Excel-Forum

(31.10.2016, 16:32)snb schrieb: [ -> ]Hast du schon ein Pivottable versucht zu verwenden ?

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

Lade dann eine Beispieldatei hoch.

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.

[attachment=7706]

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...

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

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))

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

THE ARCHITECT

snb

THE ARCHITECT

shift-del

snb