Arrayformel für Texte?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi.
Da es jetzt eh schon fertig ist, nun meine Version (ist nur durch die Fehlerprüfungen deutlich länger):
' Hinweise ' prodDaten ist der Bereich, in dem Prosukt A, Produkt B etc steht (hier A2:A4) ' bereichDaten ist der Bereich, in dem das test1, test2 etc. steht INKL. Überschrift! ' (hier B1:C4) ' gesProd ist eine Zelle, in dem das Produkt steht, das gesucht wird (hier G2) ' gesBereich ist eine Zelle, in der gesetuchte Produktbereucg stehr (hier H2) Public Function suchVerkett(prodDaten As Range, _ bereichDaten As Range, gesProd As Range, gesBereich As Range) As Variant Dim ergSpalte As Range Dim founD As Range Dim firstAddress As String ' Ein paar Überprüfungen ' darf nicht mehr als eine Spalte sein If prodDaten.Columns.Count > 1 Then suchVerkett = CVErr(2015) Exit Function ' Muss genau eine Zeile mehr als der Suchbereich sein (eine ist die Überschrift) ElseIf bereichDaten.Rows.Count prodDaten.Rows.Count + 1 Then suchVerkett = CVErr(2015) Exit Function ' Bereich zusammenhängen ElseIf bereichDaten.Areas.Count 1 Or prodDaten.Areas.Count 1 Then suchVerkett = CVErr(2015) Exit Function ' darf nur eine Zelle sein ElseIf gesProd.Cells.Count > 1 Or gesBereich.Cells.Count > 1 Then suchVerkett = CVErr(2015) Exit Function End If ' Gibt es den Suchbereich überhaupt? Set ergSpalte = bereichDaten.Rows(1).Find(gesBereich.Value) If ergSpalte Is Nothing Then suchVerkett = CVErr(xlErrNA) Exit Function End If ' suchspalte definiert festlegen (nur die Spalte mit dem Suchbegriff, ' nur die Zeilen von gesbereich ohne Überschrift Set ergSpalte = Intersect(ergSpalte.EntireColumn, _ bereichDaten.Offset(1).Resize(bereichDaten.Rows.Count - 1)) With prodDaten ' Fängt nach der letzten Zelle an zu suchen, da er sonst die erste u.U. ' nicht als erstes findet Set founD = .Find(gesProd.Value, .Cells(.Cells.Count)) ' wenn nichts gefunden, dann raus If founD Is Nothing Then suchVerkett = CVErr(xlErrNA) Exit Function End If firstAddress = founD.Address Do ' Ergebnisstring aufbauen suchVerkett = suchVerkett & IIf(suchVerkett = "", "", " ") & _ ergSpalte.Cells(founD.Row - .Row + 1, 1).Value Set founD = .Find(gesProd.Value, founD) ' Abfrage nach found is nothing unnötig, er findet ja sicher was Loop Until founD.Address = firstAddress End With End Function
Gruss, Jogy

Hallo Jörg
Pack diesen Code mal in Modul:

' **********************************************************************
' Modul: Sverweis_anders Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function SVERWEIS2(Kriterium As String, _
    Bereich As Range, _
    SuchSpalte As Integer, _
    ErgebnissSpalte As Integer, _
    Optional Unikate As Boolean = True, _
    Optional Trenner As String = ", ") As String
Dim arrTmp
Dim L As Long
Dim Mydic As Object
arrTmp = Bereich
Set Mydic = CreateObject("Scripting.Dictionary")
If Unikate = True Then
    For L = 1 To UBound(arrTmp)
        If arrTmp(L, SuchSpalte) = Kriterium Then Mydic(arrTmp(L, ErgebnissSpalte)) = 0
    Next
    SVERWEIS2 = Join(Mydic.keys, Trenner)
    Else:
    For L = 1 To UBound(arrTmp)
        If arrTmp(L, SuchSpalte) = Kriterium Then Mydic(L) = arrTmp(L, ErgebnissSpalte)
    Next
    SVERWEIS2 = Join(Mydic.items, Trenner)
End If
End Function

Der Aufruf geht dann so:
Tabelle2

	A	B	C	D	E
1		Produktbereich 1	Produktbereich 2		Produkt A
2	Produkt A	0GH	Q8U		Produktbereich 2
3	Produkt B	J6P	7B6		Q8U, Q8U, TPA, Q8U
4	Produkt A	7ZW	Q8U
5	Produkt B	NA7	PJM
6	Produkt A	KAW	TPA
7	Produkt B	94P	L3Z
8	Produkt A	1QI	Q8U
9	Produkt B	ZF2	LR6
10

Formeln der Tabelle

Zelle	Formel
E3	=sverweis2(E1;A1:C20;1;VERGLEICH(E2;A1:C1;0); FALSCH)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Erklärt wirds hier:
http://www.j-hennekes.de/1729416.htm
ransi

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Arrayformel für Texte?

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

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread