Emailadressen aus mehreren Zeilen auflisten

[TxM]

Hallo,

in einem Datenblatt stehen mehrere Emailadressen jeweils einzeln in einer Zelle.
(Hier in Registerkarte #1-4: B14, E14, H14 und K14)

Ich würde gerne auf einem anderen Registerblatt (Tabelle1) in D5 die Emailadressen hintereinander auflisten lassen, jeweils mit einem Semikolon dazwischen, so dass man die Adressen für eine Email direkt nutzen kann.

Ich habe es so probiert, bekomme aber immer eine Fehlermeldung:
=WENN('#1-4'!B14>0;'#1-4'!B14+";")
=WENN('#1-4'!B14>0;'#1-4'!B14)+WENN('#1-4'!B14>0;";")

Könnt Ihr mir einen Tip geben, wie ich eine Auflistung in dieser Art erreichen kann?

ab1@web.de; ab2@gmx.de; test@web.de; theo@yahoo.de

Anbei die Datei, in der ich es umsetzen möchte.

Viele Grüße
TxM

[Warkings]

https://support.microsoft.com/de-de/offi...8fc845691c

[TxM]

Hallo, danke für den Tip.

Gibt es noch eine andere Möglichkeit?
Ich arbeite mit Office 2010, da scheint es die Funktion leider noch nicht zu geben.

[Warkings]

Update auf das aktuelle Office

[TxM]

Ist aktuell leider nicht möglich, daher die Frage nach einer anderen Möglichkeit.

[Warkings]

Warum ist das nicht möglich?

PHP-Code:

Function txtCon(delimiter As String, ignore As Boolean, rg As Range) As String

    Dim sngRg As Range, sngcell As Range
    Dim result As String

    If rg.Areas.Count > 1 Then
        For Each sngRg In rg.Areas
            For Each sngcell In sngRg.Cells
                If Len(sngcell.Value2) = 0 And ignore Then
                Else
                    result = result & sngcell.Value & delimiter
                End If
            Next
        Next
    Else
        
        For Each sngcell In rg
            If Len(sngcell.Value2) = 0 And ignore Then
            Else
                result = result & sngcell & delimiter
            End If
        Next
    End If
    txtCon = Left(result, Len(result) - 1)
End Function 


[Cadmus]

Hallo TxM,

Texte verknüpft man mit "&".

Ersetze das "+" durch "&".

[TxM]

Vielen Dank Cadmus, durch den Tip habe ich es hinbekommen.

Danke und einen schönen Abend.
VG TxM