Ich nutze folgenden VBA-Code:
Function AlleWerte _
(rErg As Range, _
sMatch As String, _
rMatch As Range, _
Optional sDelim As String = " ") _
As String
'rErg=Ergebnisspalte, sMatch=Suchbegriff
'rMatch=Suchspalte, sDelim=Trennzeichen
Dim objErg As Object, lngC As Long
Dim arrErg, arrMatch
Set objErg = CreateObject("Scripting.Dictionary")
arrErg = rErg.Value
arrMatch = rMatch.Value
For lngC = LBound(arrMatch) To UBound(arrMatch)
If arrMatch(lngC, 1) Like sMatch Then
objErg(objErg.Count + 1) = arrErg(lngC, 1)
End If
Next
AlleWerte = Join(objErg.items, sDelim)
End Function
Es werden mir also in eine Zelle mehrere Zahlen (z.B. durch Semikolon getrennt) ausgegeben. Nun möchte ich gern in einer anderen Spalte diese Werte wiederum durch einen individuellen Wert (je Zeile) teilen. Es wäre schön, wenn die Werte dabei wieder durch Semikolon getrennt in einer Zelle stehen würden.In einer weiteren Zelle sollte dann der größte Wert ausgeben werden.
Kann jemand bitte helfen? Ich schaffe die Ergebnisse jeweils nur, wenn nur ein Wert je Zelle ausgegeben wird... .
Danke & viele Grüße
Sandra