Office: Bedingte Verkettung

Hallo,

wie kann Zellinhalte bedingt verketten? Ich habe folgende Informationen in der Tabelle (pro Zeile):

Name Mailadresse Kennbuchstabe

Nun möchte ich aus einer Tabelle mit ca. 50 Zeilen jeweils alle Mailadressen hinter denen der gleiche Kennbuchstabe steht miteinander verketten (jeweils durch ein Komma getrennt). Ist das möglich, ohne dass ich mit mit der VERKETTEN- Funktion "rumklicken" muss?

Danke und Gruß

 

Hallo!

Ohne viel Klickerei geht das wohl nur mit einer benutzerdefinierten Funktion:

	A	B	C	D
1	Name	email	kennung
2		abc@abc.de	x
3		def@def.de	y
4		ghi@ghi.de	x
5		jkl@jkl.de	y
6		mno@mno.de	x
7		pqr@pqr.de	x
8
9
10				abc@abc.de, ghi@ghi.de, mno@mno.de, pqr@pqr.de
11				def@def.de, jkl@jkl.de

Zelle	Formel
D10	=kette(C2:C7;"x";B2:B7;", ")
D11	=kette(C2:C7;"y";B2:B7;", ")

Mit dieser Funktion in einem allgemeinen Modul:

Function kette(suchbereich As Range, kriterium, mailbereich As Range, trenner As String)
Dim i As Long
For i = 1 To suchbereich.Count
If suchbereich(i) = kriterium Then kette = kette & trenner & mailbereich(i)
Next i
kette = Right(kette, Len(kette) - Len(trenner))
End Function

 

Hallo,

recht vielen Dank für die schnelle Hilfe. Das sieht schon sehr vielversprechend aus. Ich werde es in den nächsten Tagen testen.

Gruß