OpenOffice.info

... und, verstehst Du auch warum?
Gruß R

Sub S_clear_cell_contents

osheet = thisComponent.sheets.getbyname("Tabelle2")
ncolumn = 0 'Index der Spalte A
ocursor = osheet.createcursor
ocursor.gotoendofusedarea(false)
aRangeAddress = ocursor.RangeAddress
nEndRow = aRangeAddress.EndRow
for i = 0 to nEndRow
 ocell = osheet.getcellbyposition(ncolumn,i)
 if ocell.Value = datevalue(now) then 
  oRange = osheet.getcellrangebyposition(ncolumn+1,i,ncolumn+9,i)
  oRange.clearContents(23)'VALUE = 1, DATETIME = 2, STRING = 4, FORMULA = 16 -> 1+2+4+16 = 23 
 endif
next i
End Sub

Hallo Robin,
angenommen die Tabelle in der du löschen möchtest ist die [color=#0040FF]Tabelle2[/color], die Spalte in der die Daten stehen sei die [color=#0040FF]Spalte A[/color], dann geht dieses Makro:

[code]Sub S_clear_cell_contents

osheet = thisComponent.sheets.getbyname("Tabelle2")
ncolumn = 0 'Index der Spalte A
ocursor = osheet.createcursor
ocursor.gotoendofusedarea(false)
aRangeAddress = ocursor.RangeAddress
nEndRow = aRangeAddress.EndRow
for i = 0 to nEndRow
ocell = osheet.getcellbyposition(ncolumn,i)
if ocell.Value = datevalue(now) then
oRange = osheet.getcellrangebyposition(ncolumn+1,i,ncolumn+9,i)
oRange.clearContents(23)'VALUE = 1, DATETIME = 2, STRING = 4, FORMULA = 16 -> 1+2+4+16 = 23
endif
next i
End Sub[/code]

Gruß R

Hi Leute,

ich möchte in meiner Tabelle ein Makro einfügen, das in einem anderen Tabellenblatt, in einer Spalte das heutige Datum findet und dann die rechts angrenzenden 9 Zelleninhalte (selbe Zeile) löscht.

Ich hab mir schon ein paar Sachen überlegt, aber ich weiß irgendwie nicht wie ich anfangen soll. Danke

Robin