Sub Zelle_Faerben
  REM Bezug auf die aktive Zelle (das Objekt)
  oZelle = thisComponent.getCurrentSelection() 
  if oZelle.getType() = 0  then  'leere Zelle
    oZelle.CellBackColor = -1  'Eigenschaft zurcksetzen
  else   'nicht leere Zelle
    REM Eigenschaft Hintergrundfarbe 
    oZelle.CellBackColor = rgb(255,0,0)  
  end if
End Sub
