Ich habe noch einen Nachfrage zu
1260086 2012-04-19 13:49:24 In Liste suchen mehrere Ergebnisse ausgeben
Hallo liebe Excel-Freunde!
Ich suche in einer Spalte eine bestimmte Zeichenkombination und möchte in jeder Zeile (in der diese Kombination gefunden wird) einen weiteren Wert auslesen. Alle ausgelesenen Werte sollen in einer Zelle durch Leerzeichen getrennt ausgegeben werden.
Für mich ist es schwierig, dass die Zeichenkombination mehrfach in der Spalte vorkommt. Ich schaffe es bisher nur für den Fall, dass der Wert nur einmal vorkommt:
= INDEX($B$2:$K$2500;VERGLEICH(VERKETTEN("*";"-";L5;"-";M5);$K$2:$K$2500;0);1)
Kann jemand bitte helfen?
Vielen Dank & Grüße
Sandra
Rudi (vielen Dank!) hatte folgendes vorgeschlagen:
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
D.h. ich habe nun in einer Zelle mehrere Datenwerte, z.B. durch Komma getrennt. Nun müsste ich jedoch jeden dieser einzelnen Werte durch eine bestimmte/variable Zahl teilen. Das funktioniert aber nur, wenn nur eine Zahl in der Zelle steht.
Wie kann ich mehrere Datenwerte in der Zelle durch den gleichen Wert teilen? Hat jemand eine Idee?
Vielen Dank!
Sandra