Der Code für ein allgemeines Modul
Public Function verketten2(Bereich As Range)
Dim Zelle As Range
For Each Zelle In Bereich
If Zelle.Value <> "" Then
verketten2 = verketten2 & Zelle & ", "
End If
Next
verketten2 = Left(verketten2, Len(verketten2) - 2)
End Function
|
|||||||||||||||||||||||||||||||||||||||
