Vermutung:
Function getBCC(ByRef rng As Excel.Range) Dim vRet As Variant With Application vRet = Join(.Transpose(.Transpose(rng)), ";") End With While InStr(1, vRet, ";;") > 0 vRet = Replace(vRet, ";;", vbNullString) Wend getBCC = vRet End Function