Fuktion:Abhängige Verketten von mehrzeilenergebnis
26.10.2007 18:20:21
mehrzeilenergebnis
ich suche eine Funktion, die mir Werte aus Spalte X verkettet, wenn in Spalte A ein bestimmter Wert steht. (Oder gibt es das als Matrixfunktion, damit kenne ich mich leider gar nicht aus?)
Also z.B. verketten2("Suchwert";X;"Trennzeichen")
Ich habe schon versucht, folgenden Funktionscode anzupassen, aber leider ohne Erfolg. Denke dennoch, der könnte ein guter Ausgangspunkt sein.
Function Verketten2(ByRef bereich As Range, Trennzeichen As String) As String
Dim rng As Range
For Each rng In bereich
If rng "" Then
Verketten2 = Verketten2 & rng & Trennzeichen
End If
Next
If Len(Verketten2) > 0 Then _
Verketten2 = Left(Verketten2, Len(Verketten2) - Len(Trennzeichen))
End Function
Vielen Dank für Eure Hilfe,
Pascal