OpenOffice.info

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