Funktion : Verketten2

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
Next

If Len(Verketten2) > 0 Then _

Verketten2 = Left(Verketten2, Len(Verketten2) – Len(Trennzeichen))
End If

End Function

Dieser Beitrag wurde unter Excel abgelegt und mit , verschlagwortet. Setze ein Lesezeichen auf den Permalink.

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.

This site uses Akismet to reduce spam. Learn how your comment data is processed.