Code: Alles auswählen
Sub Main
With ThisComponent.Sheets().getByName("Tabelle1")
tmp = .getCellRAngeByName("A1:A1000").getDataArray
For i = 0 To Ubound(tmp())
akt = tmp(i)
eintrag = eintrag & akt(0) & ","
Next i
.getCellRAngeByName("B1").String = eintrag
End With
End Sub