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

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Zellen löschen über Schaltfläche und Formel wiederherstellen

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

von tunix_xl » Do, 12.03.2009 16:29

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.

Nach oben