Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Emailadressen aus mehreren Zeilen auflisten
Normale Version: Emailadressen aus mehreren Zeilen auflisten
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

TxM

03.01.2021, 17:59
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?
Zitat: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

03.01.2021, 18:20
https://support.microsoft.com/de-de/offi...8fc845691c

TxM

03.01.2021, 18:27
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

03.01.2021, 18:35
Update auf das aktuelle Office

TxM

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

Warkings

03.01.2021, 18:52
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

03.01.2021, 19:06
Hallo TxM,

Texte verknüpft man mit "&".

Ersetze das "+" durch "&".

TxM

03.01.2021, 21:07
Vielen Dank Cadmus, durch den Tip habe ich es hinbekommen.

Danke und einen schönen Abend.
VG TxM
Clever-Excel-Forum > Office-Anwendungen > Excel > Emailadressen aus mehreren Zeilen auflisten