Zellen löschen über Schaltfläche und Formel wiederherstellen

[tunix_xl]

Hi castro
versuch mal:

Code: Alles auswählen

''----------------------------------------------------------------------------------
Sub RechnungNeu()    ''
''----------------------------------------------------------------------------------
Dim oDoc As Object
Dim oSheet As Object
Dim oCell as Object
Dim LoeschBereich As Object

oDoc  = ThisComponent

'' statt "test" deinen TabellenNamen eintragen
oSheet  =  oDoc.getSheets().getByName("test")

'' Bereich A2:I45 löschen
oLoeschBereich = oSheet.GetCellrangeByPosition(0,1,8,44) 
oLoeschBereich.ClearContents(255)

'' Zelle für Formeleintrag: = I47
oCell = oSheet.GetCellByPosition(8,46)

oCell.formulalocal = "=WENN(H47="+CHR$(34)+CHR$(34)+";"+CHR$(34)+CHR$(34)+";RUNDEN(SUMME(H47)*SUMME(J46);2))"

'' Zelle für Formeleintrag: = I54
oCell = oSheet.GetCellByPosition(8,53)

oCell.formulalocal = "=WENN(H54="+CHR$(34)+CHR$(34)+";"+CHR$(34)+CHR$(34)+";RUNDEN(SUMME(H54)*SUMME(J53);2))"

End sub

Hoffe das klappt
Gruß
t.