Excel – Viele Zellen in einem Bereich mit Trennzeichen verketten

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 Function
Werbeanzeigen