Datumseingabe

[mikele]

Hallo F3K Total,
in die Richtung dachte ich auch schon, allerdings, wenn ich mir vorstelle für mehrere Tabellen die entsprechenden Bereiche ins Makro zu programmieren ...
Ich hoffte irgendwie einzelnen Zellen oder Bereichen ein Ereignis zuordnen zu können.

[F3K Total]

Vielleicht mit einem eventhandler,
wie wäre es mit

Code: Alles auswählen

function F_Check_CellRange as boolean
    Zellbereiche = array("A2:A500", "B17:B18", "C19")
    oselection = thiscomponent.currentselection
    osheet = thiscomponent.currentcontroller.activesheet
    if oSelection.supportsService("com.sun.star.sheet.SheetCell") then 'Es handelt sichum eine einzelne Zelle
        oCellsRangeAddress = oSelection.RangeAddress
        bfound = false
        for i = 0 to ubound(Zellbereiche)
             oCellRange = oSheet.getCellRangeByName(Zellbereiche(i))'aktiver Bereich in dem die Änderungen vorgenommen werden dürfen
             if oCellRange.queryIntersection(oCellsRangeAddress).count = 1 then
                 bfound = true
                 exit for
             endif
        next i
        if bfound then F_Check_CellRange = true else F_Check_CellRange = false        
    endif
End function

Gruß R

[mikele]

Hi,
da fiel mir ein, den gewünschten Zellbereichen einen Namen zu verpassen (Schema: datum_tabellenname) und dann mit F3K Total's Code-Schnipsel zu kombinieren.

Code: Alles auswählen

function F_Check_CellRange as boolean
    oselection = thiscomponent.currentselection
    osheet = thiscomponent.currentcontroller.activesheet
    oCellRange = oSheet.getCellRangeByName("datum_" & osheet.name)'aktiver Bereich in dem die Änderungen vorgenommen werden dürfen
    if oSelection.supportsService("com.sun.star.sheet.SheetCell") then 'Es handelt sichum eine einzelne Zelle
        oCellsRangeAddress = oSelection.RangeAddress
        if oCellRange.queryIntersection(oCellsRangeAddress).count = 1 then F_Check_CellRange = true else F_Check_CellRange = false
        'Die selektierte Celle liegt in dem benannten Bereich          
    endif
End function