OpenOffice.info

if oCellRange.queryIntersection(oCellsRangeAddress).count = 1 then 'Es gibt ocell in ocellrange, sonst wäre .count = 0

Hallo Axel,
super, vielen Dank. :D Da wäre ich niemals drauf gekommen, denn mit "Query" verband ich bis dato immer SQL. :?
An "supportsservice" habe ich nicht gedacht :o , denke das verhindert eine Fehlermeldung falls etwas anderes als eine Zelle ausgewählt wurde? Klasse!
Per XRAY habe ich noch herausgefunden, dass auch .count abfragbar ist, daher den Code noch etwas verändert:
[code]
if oCellRange.queryIntersection(oCellsRangeAddress).count = 1 then 'Es gibt ocell in ocellrange, sonst wäre .count = 0
[/code]
viele Grüsse von Rik

Sub Insert_Time()
oSheet = ThisComponent.Sheets(0)
oCellRange = oSheet.getCellRangeByName("B2:F50")
oSelection = ThisComponent.CurrentSelection
if oSelection.supportsService("com.sun.star.sheet.SheetCell") then
 oCellsRangeAddress = oSelection.RangeAddress
 if not (oCellRange.queryIntersection(oCellsRangeAddress).RangeAddressesAsString = "") then
  oSelection.Value = now()
 endif
endif
End Sub

Hallo,

[quote="F3K Total"]Gibt es eine Funktion wie ist die Zelle "ocell" Teilmenge von "ocellrange"?[/quote]
Es gibt so etwas ähnliches, nämlich: Gib die Überschneidung von Range1 und Range2.
[url]http://api.openoffice.org/docs/common/ref/com/sun/star/sheet/XCellRangesQuery.html#queryIntersection[/url].

Wenn es keine Überschneidung gibt, dann ist die Zelle nicht im Range.

[code]
Sub Insert_Time()
oSheet = ThisComponent.Sheets(0)
oCellRange = oSheet.getCellRangeByName("B2:F50")
oSelection = ThisComponent.CurrentSelection
if oSelection.supportsService("com.sun.star.sheet.SheetCell") then
oCellsRangeAddress = oSelection.RangeAddress
if not (oCellRange.queryIntersection(oCellsRangeAddress).RangeAddressesAsString = "") then
oSelection.Value = now()
endif
endif
End Sub
[/code]

viele Grüße

Axel

Sub Insert_Time
osheet=thiscomponent.sheets(0)
ocellrange=osheet.getCellRangeByName("B2:F50")
oAddresses=ocellrange.rangeaddress
oview=thiscomponent.CurrentController
ocell=oView.getSelection
oCelladdress=ocell.cellAddress
if oCelladdress.Column>=oAddresses.StartColumn and oCelladdress.Column<=oAddresses.EndColumn and oCelladdress.Row>=oAddresses.StartRow and oCelladdress.Row<=oAddresses.EndRow then
ocell.value=now()
endif
End Sub

oCelladdress=ocell.cellAddress
if oCelladdress.Column>=oAddresses.StartColumn and oCelladdress.Column<=oAddresses.EndColumn and oCelladdress.Row>=oAddresses.StartRow and oCelladdress.Row<=oAddresses.EndRow then
ocell.value=now()
endif

Hallo zusammen,
in folgendem Beitrag: [url]http://de.openoffice.info/viewtopic.php?f=2&t=47938[/url] habe ich ein Makro geschrieben, das die Uhrzeit in die gerade selektierte Zelle schreibt.[code]Sub Insert_Time
osheet=thiscomponent.sheets(0)
ocellrange=osheet.getCellRangeByName("B2:F50")
oAddresses=ocellrange.rangeaddress
oview=thiscomponent.CurrentController
ocell=oView.getSelection
oCelladdress=ocell.cellAddress
if oCelladdress.Column>=oAddresses.StartColumn and oCelladdress.Column<=oAddresses.EndColumn and oCelladdress.Row>=oAddresses.StartRow and oCelladdress.Row<=oAddresses.EndRow then
ocell.value=now()
endif
End Sub[/code]Um sicherzustellen, dass diese Uhrzeit nur in die gewünschten Zellen geschrieben werden kann, habe ich mit diesem Code:[code]oCelladdress=ocell.cellAddress
if oCelladdress.Column>=oAddresses.StartColumn and oCelladdress.Column<=oAddresses.EndColumn and oCelladdress.Row>=oAddresses.StartRow and oCelladdress.Row<=oAddresses.EndRow then
ocell.value=now()
endif[/code]die zu beschreibenden Zellen auf "B2" bis "F50" beschränkt. Die vierfach Bedingung finde ich zu umständlich, wußte mir aber nicht besser zu helfen. Hat jemand eine Idee wie man das geschickter machen kann?
Gibt es eine Funktion wie [b][color=#0000FF]ist die Zelle "ocell" Teilmenge von "ocellrange"[/color][/b]?

Gruß R