OpenOffice.info

Verfasst: **Mi, 04.04.2012 16:42**

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

Verfasst: **Mi, 04.04.2012 19:22**

Hallo Robin,
angenommen die Tabelle in der du löschen möchtest ist die Tabelle2, die Spalte in der die Daten stehen sei die Spalte A, dann geht dieses Makro:

Code: Alles auswählen

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

Gruß R

Verfasst: **Mi, 04.04.2012 21:10**

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

OpenOffice.info

Per Makro Zelle finden und Inhalte löschen

Per Makro Zelle finden und Inhalte löschen

Re: Per Makro Zelle finden und Inhalte löschen

Re: Per Makro Zelle finden und Inhalte löschen