Funktion erweitern
06.09.2013 18:11:59
Lorenz
mit der folgenden Funktion werden Zelleinträge verkettet. Das funktioniert soweit in Ordnung. Wie muß " Verbinde_Text = Left(tmpStr, Len(tmpStr))" abgeändert werden, daß am Ende die Zeichen nicht angehängt werden, sondern nur zwischen den Werten?
Function Verbinde_Text(Zeichen As String, Bereich As Range)
Dim myRng As Range
Dim tmpStr As String
tmpStr = ""
For Each myRng In Bereich
If myRng "" Then
tmpStr = tmpStr & myRng & Zeichen
End If
Next
Verbinde_Text = Left(tmpStr, Len(tmpStr))
End Function
Gruß
Lorenz
Anzeige