[Bug 164836] Calc Event

[bugzilla-daemon]

https://bugs.documentfoundation.org/show_bug.cgi?id=164836

--- Comment #2 from rolf.kuehlw...@gmx.de ---
I use a macro that controls the input of a cell in column 0.

This makro works only on Table number 0.

I set up the macro under the menu item Table - Events - Content changed, under
Table 0 and it works. If I do the same with Table 1, the macro does not work in
this Table.

makro :
Sub Zellegeaendert

        Dim oCell as Object
        Dim Zeile As Integer
        Dim Spalte As Integer
        Dim Zellinhalt As String

        Dim oDokument As Object
        Dim oTabelle As Object
        Dim oTabellen As Object

        oDokument = ThisComponent  
        oTabellen   = oDokument.Sheets
        oTabelle     = oDokument.Sheets.getByName(TabellenName)

        Zeile = AktuelleZeile    'geaenderdeZelle.CellAddress.Row '-8
        Spalte = AktuelleSpalte  'geaenderdeZelle.CellAddress.Column

        If Spalte <> 0 Then Exit Sub 

        'Msgbox Zeile & "  " & Spalte
        Zellinhalt = oTabelle.getCellByPosition(Spalte ,Zeile).String
        'Msgbox Zeile & "  " & Spalte & "  " & Zellinhalt
        If val(Zellinhalt) = 0 Then Exit sub

        SuchenNach(Zellinhalt)

End Sub

-- 
You are receiving this mail because:
You are the assignee for the bug.