Hallo Jörg!
Vielen Dank, so ähnlich funktioniert's, ich füge noch ein kleines
Testprogramm an, wie ich's gemacht habe.
Gruß
Wolfgang
Jörg Schmidt wrote:
Im Prinzip so:
'der gegenwärtig markierte Bereich
selektion = ThisComponent.getCurrentSelection()
'die vier Koordinaten der Eckzellen des Bereichs
zellBereichAddresse = selektion.getByIndex(i).getRangeAddress()
as = zellBereichAddresse.StartColumn
az = zellBereichAddresse.StartRow
es = zellBereichAddresse.EndColumn
ez = zellBereichAddresse.EndRow
Dann kommst Du mit:
For x = as to es
For y = az to ez
'...
Next y
Next x
durch alle Zellen des Bereichs.
Hinweis:
hat der Zellbereich mehrere Teilbereiche mußt Du Obenstehendes für jeden
Teilbereich tun indem Du durch alle interierst, etwa so:
for i=0 To selektion.getCount()-1
'...
Next i
Sub range_test()
Dim summe As Variant
summe=0
oDoc = StarDesktop.CurrentComponent
oSheet = oDoc.Sheets(0)
oSelektion = oDoc.getCurrentSelection()
oRange = oSelektion.getRangeAddress()
ac = oRange.StartColumn
ar = oRange.StartRow
ec = oRange.EndColumn
er = oRange.EndRow
For x = ac to ec
For y = ar to er
oCell = oSheet.getCellByPosition(x, y) 'Spalte, Zeile
If isNumeric(oCell.Value) Then
summe = summe + oCell.Value
End If
Next y
Next x
MsgBox (summe)
End sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]