Man kennt im Excel das verketten:
=Verketten(A1;A2;A3) verbindet mehrere Zellen.
Beispiel:
Etwas mühsam, wenn man oft, viele Zellen verknüpfen will. Einfacher ist die folgende Funktion:
=verketten2(range,trennzeichen)
Möglich mit diesem Makro:
Function Verketten2(ByRef bereich As Range, Trennzeichen As String) As String
Dim rng As Range
For Each rng In bereich
If rng <> „“ Then
Verketten2 = Verketten2 & rng & Trennzeichen
End If
NextIf Len(Verketten2) > 0 Then _
Verketten2 = Left(Verketten2, Len(Verketten2) – Len(Trennzeichen))
End IfEnd Function