OpenOffice.info

Code: Alles auswählen

Sub de47670
' 2011-03-28

sBereich = "B1:C3"


For iBlatt = 0 to ThisComponent.Sheets().Count - 1

	oBlatt = ThisComponent.Sheets().getByIndex( iBlatt ) 

	' Bearbeitungsroutine pro Blatt
	If NOT oBlatt.isProtected() Then
		oZellBereich = oBlatt.getCellRangeByName( sBereich )
		untersucheBereich( oZellBereich )
	End If
	
Next iBlatt

End Sub




Sub untersucheBereich( oZellBereich )

' Array von Strings
mDatenArray = oZellbereich.getFormulaArray()

For i = 0 To UBound( mDatenArray )
	mZeilenArray = mDatenArray( i )
	For j = 0 To UBound( mZeilenArray )
		sZellenInhalt = mZeilenArray( j )
		If LEN( sZellenInhalt ) > 0 Then
			If NOT ( LEFT( sZellenInhalt, 1 ) = "=" ) Then
				sZellenInhalt = "=" & sZellenInhalt
				mZeilenArray( j ) = sZellenInhalt
			End If	
		End If
	Next j
	mDatenArray( i ) = mZeilenArray
Next i

oZellbereich.setFormulaArray( mDatenArray )

End Sub

Code: Alles auswählen

Sub Make_Formula

for i=0 To 0 'Anzahl Tabellenblätter-1
osheet=thisComponent.sheets(i)
for j=0 to 1 'Anzahl Spalten-1
for k=0 to 6 'Anzahl Zeilen-1
ocell=osheet.getcellbyposition(j,k)
ostring=oCell.string
ostring="="+ostring
oCell.Formula=ostring
next k
next j
next i
End Sub