von Stephan » Mo, 25.04.2016 09:57
z.B.:
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
z.B.:
[code]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[/code]