Hallo Frank_B,
die Lösung ist relativ einfach. Einfach der Zelle das Feld mit Join (als String mit Zeilenumbruch) übergeben:
xlsSheet.Cells(1,1) = Join(doc.Feldname, Chr$(13) + Chr$(10))
Dann stehen die Mehrfachwerte untereinander in einer Zelle.
MFG
ERR