ich habe in meiner Liste ca. 250 E-Mail-Adressen in Spalte H7:H240.
Wie schaffe ich es, dass alle Adressen, getrennt durch einen ; und anschließendem Leerzeichen in Zelle H1 übernommen werden?
Gruß und Danke vorab
TOM
Function emailAdressen(Bereich As Range) As String
emailAdressen = Bereich(1, 1)
For I = 2 To Bereich.Rows.Count
emailAdressen = emailAdressen & "; " & Bereich(I, 1)
Next I
End Function
Die Formel in H1 ist dann:
=emailAdressen(H7:H240)
Function emailAdressen(Bereich As Range) As Variant
Dim I As Long
emailAdressen = Bereich(1, 1)
For I = 2 To Bereich.Rows.Count
emailAdressen = emailAdressen & "; " & Bereich(I, 1)
Next I
End Function
Function emailAdressen(Bereich As Range) As Variant
Dim I As Long
For I = 2 To Bereich.Rows.Count
If Bereich(I, 1) <> "" Then
If emailAdressen = "" Then
emailAdressen = Bereich(I, 1)
Else
emailAdressen = emailAdressen & "; " & Bereich(I, 1)
End If
End If
Next I
End Function
Function emailAdressen(Bereich As Range, Optional Ausnahme As Range, Optional Nicht As String) As Variant
'Bereich = Zellbereich mit den emailadressen in der 1. Spalte
'Ausnahme = Zellbereich mit speziellem Eintrag
'Zellbereiche für Bereich und Ausnahme müssen die gleichen Zeilennummern haben
'Nicht = Begriff im Zellbereich Ausnahme, bei Übereinstimmung wird e-mailadresse nicht in die Liste aufgenommen
Dim I As Long
If Ausnahme Is Nothing Then
For I = 2 To Bereich.Rows.Count
If Bereich(I, 1) <> "" Then
If emailAdressen = "" Then
emailAdressen = Bereich(I, 1)
Else
emailAdressen = emailAdressen & "; " & Bereich(I, 1)
End If
End If
Next I
Else
If Bereich.Row < Ausnahme.Row Or Bereich.Rows.Count <> Ausnahme.Rows.Count Then
MsgBox "Bereiche mit e-mailAdressen und Ausnahmen müssen die gleichen Zeilen beinhalten!"
emailAdressen = "Fehler"
Exit Function
End If
For I = 2 To Bereich.Rows.Count
If Bereich(I, 1) <> "" And Ausnahme(I, 1) <> Nicht Then
If emailAdressen = "" Then
emailAdressen = Bereich(I, 1)
Else
emailAdressen = emailAdressen & "; " & Bereich(I, 1)
End If
End If
Next I
End If
End Function
Die Formel in der Tabelle schaut dann z.B. so aus:
=emailAdressen(H7:H40;AF7:AF40;"Absage")