OpenOffice.info

Code: Alles auswählen

Function MeineFunktion( sBereichsAdr, sTabName )

Dim oBereich 
Dim oDaten
Dim oDatenZeile
Dim lSumme
Dim zz 		'ZählerZeilen
Dim zc 		'ZählerCells

oBereich = ThisComponent.Sheets().getByName( sTabName ).getCellRangeByName( sBereichsAdr ) 
lSumme = 0
oDaten = oBereich.getDataArray()

	'die Zeilen des Bereichs durchlaufen
	for zz = LBound( oDaten() ) to UBound( oDaten() )
		oDatenZeile() = oDaten( zz )

		'die Zellen der Zeilen durchlaufen
		for zc = LBound( oDatenZeile() ) to UBound( oDatenZeile() )
			lSumme = lSumme + oDatenZeile( zc )
		next ' Zellen
	next ' nächste Datenzeile

	'print lSumme
        MeineFunktion = lSumme 

End Function

Code: Alles auswählen

Function summenTest ( vArgument as Variant )
' ist das argument ein Array (Zellbereich)
if Not IsArray(vArgument) then
' ist der einzelne Wert numerisch
if IsNumeric( vArgument ) then
' Rückgabewert ist gleich Eingabewert
summenTest = vArgument
else
' Summe ist gleich 0 wenn kein numerischer Wert
' übergeben wurde
summenTest = 0
end if
' funktion beenden
exit function
End If
Dim nSumme as Long
Dim i as Integer
Dim j as Integer
' der spätere Rückgabewert
nSumme = 0
' Schleife durch 1 Dimension (Zeilen)
for i=1 to UBound(vArgument,1)
' Schleife durch zweite Dimension (Spalten)
for j=1 to UBound(vArgument,2)
' numerisch?
if IsNumeric( vArgument(i,j) ) then
' Wert dazuzählen
nSumme = nSumme + vArgument(i,j)
end if
next j
next i
' Rückagbewert in Zelle
summenTest = nSumme
End Function

Code: Alles auswählen

lSumme = 0 
oDaten = oBereich.getDataArray()
' die Zeilen des Bereichs
' zz: ZählerZeilen
for zz = _
	LBound( oDaten() ) to _
	UBound( oDaten() )

	oDatenZeile() = oDaten( zz )
	' zz: ZählerZeilen

	' pro Zeile die cells/Zellen
	' zc: ZählerCells
	for zc = _
		LBound( oDatenZeile() ) to _
		UBound( oDatenZeile() )

		lSumme = lSumme + oDatenZeile( zc )
	next ' Zellen
next ' nächste Datenzeile

print lSumme

Code: Alles auswählen

Function MeineFunktion( sBereichsAdr, sTabName ) 

oBereich = ThisComponent.Sheets().getByName( sTabName ).getCellRangeByName( sBereichsAdr )