Hallo zusammen,
gesetzt den Fall, ich möchte E-Mail-Adressen in Zellen H2 bis H50 verketten, um sie dann ins BCC von OutlookExpress zu setzen.
Mit VBA geht das z. B. so:
’ **********************************************************************
’ Modul: Verketten Typ: Allgemeines Modul
’ **********************************************************************
Option Explicit
Public Function joinen(Bereich As Range, Optional Trenner As String = " „)
Dim a() As Variant
Dim zellen As Range
Dim L As Long
ReDim a(Bereich.Count)
For Each zellen In Bereich
If zellen.Text „“ Then
a(L) = zellen.Text
L = L + 1
End If
Next
ReDim Preserve a(L - 1)
joinen = Join(a, Trenner)
End Function
’ Aufruf mit =joinen(H2:H50;“; ")
Aber geht das auch ohne VBA? Z. B. mit verketten() und Matrixformel?
Schöne Grüße
JK