Mit Excel Zellbereiche per Semikolon zusammenfassen

Auf http://superuser.com/questions/240858/convert-a-column-into-a-comma-separated-list habe ich eine hilfreiche VBA Funktion gefunden, um Zellbereiche per Semikolon in einer Zelle zusammenzufassen.

Function csvRange(myRange As Range)
Dim csvRangeOutput
    For Each entry In myRange
        If Not IsEmpty(entry.Value) Then
            csvRangeOutput = csvRangeOutput & entry.Value & "; "
        End If
    Next
    csvRange = Left(csvRangeOutput, Len(csvRangeOutput) - 1)
End Function