Sverweis mit doppelten einträgen

Question

Hallo, ich habe ein Problem,

p1 x aaaaa
p1 bbbbbb
p1 z cccccccc
p2 a ddddddddd
p3 b wwwww
.
.
.

Ich möchte per sverweis die "p" nr bekommen wo in der nachbarzelle (B2) leer ist und mir dann bbbbbbbbb ausgeben lassen.

wer kann helfen?

lg

[*]
[sup]*Threadedit* 29.01.2010, 13:21:06
Admininfo: Führ bitte Threads nicht fort indem du Weitere eröffnest, und vermeide Mehrfachanfragen. Die Datenbank und User werden es dir danken. Siehe FAQ 2, #3.[/sup]

Answer 1

Hallo,

das geht mit SVERWEIS() nicht, da diese Funktion immer nur die erste Übereinstimmung zurück geben kann.

Probier mal das

=INDEX(C:C;KKLEINSTE(WENN(B$1:B$100="";ZEILE($1:$100));ZEILE(A1)))

Formeleingabe miot Strg+Shift+Enter bestätigen und evtl. Bezüge anpassen!

Gruss
Rainer

Answer 2

danke für die schnelle hilfe, aber was tut die formel genau?

Answer 3

http://www.file-upload.net/download-2204333/Mappe1.xls.html


wie bekomme ich es hin dass er mir die Aktion bringt welche dem "p" zugeordnet ist und nachbarzelle leer ist?

Answer 4

Hallo,

die Logik Deiner Beispieldatei ist für mich unverständlich, zumal "singen" nicht in der Matrix vorhanden ist.

Die einzige Logik, die mir zu Deiner Matrix einfällt sind die Formelergebnisse in den grün markierten Zellen.

Mehr kann ich dazu leider nicht sagen.

Download

Gruss
Rainer

Answer 5

Vielen Dank, rechnet zwar mega lange, weil ich immer bis 65500 gehe weil ich nicht weiss wieviele daten irgendwann mal dazukommen aber es klappt, kann man das ganze beschleunigen?

Answer 6

Hallo,

Du kannst die Berechnung beschleunigen indem Du die Bereiche dynamisierst mittels Bereichsnamen.
Habe im Beispiel die Namen "Projekt", "Workshops" und "Aktion" definiert und in der Formel eingesetzt.
Probier es mal aus.

Beispiel

Gruss
Rainer

Answer 7

hi all ^^

vielleicht schneller ?

gruss nighty

Option Explicit
Sub Suchen()
Dim Azeile As Long, Zaehler1 As Long, Zaehler2 As Long
Azeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
ReDim ArrA(Azeile, 3) As Variant
ReDim ArrC(Azeile, 3) As Variant
ArrA() = Range("A1:C" & Azeile)
ArrC() = Range("H1:J" & Azeile)
For Zaehler1 = 2 To Azeile
For Zaehler2 = 2 To Azeile
If ArrC(Zaehler1, 1) = ArrA(Zaehler2, 1) Then
If ArrC(Zaehler1, 2) = ArrA(Zaehler2, 2) Then
ArrC(Zaehler1, 3) = ArrA(Zaehler2, 3)
End If
End If
Next Zaehler2
Next Zaehler1
ActiveSheet.Range("H1:j" & Azeile) = ArrC()
End Sub