Emailadressen aus mehreren Zeilen auflisten
#1
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


Angehängte Dateien
.xlsx   Emailadressen.xlsx (Größe: 13,21 KB / Downloads: 8)
Top
#2
https://support.microsoft.com/de-de/offi...8fc845691c
[-] Folgende(r) 1 Nutzer sagt Danke an Warkings für diesen Beitrag:
  • TxM
Top
#3
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.
Top
#4
Update auf das aktuelle Office
Top
#5
Ist aktuell leider nicht möglich, daher die Frage nach einer anderen Möglichkeit.
Top
#6
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
Top
#7
Hallo TxM,

Texte verknüpft man mit "&".

Ersetze das "+" durch "&".
Cadmus
[-] Folgende(r) 1 Nutzer sagt Danke an Cadmus für diesen Beitrag:
  • TxM
Top
#8
Vielen Dank Cadmus, durch den Tip habe ich es hinbekommen.

Danke und einen schönen Abend.
VG TxM
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste