Per Makro Zelle finden und Inhalte löschen

[Robin13x]

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

[F3K Total]

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

[F3K Total]

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