Bug 164836 - Calc Event
Summary: Calc Event
Status: RESOLVED FIXED
Alias: None
Product: LibreOffice
Classification: Unclassified
Component: Calc (show other bugs)
Version:
(earliest affected)
24.2.7.2 release
Hardware: x86-64 (AMD64) Windows (All)
: medium normal
Assignee: Not Assigned
URL:
Whiteboard:
Keywords:
Depends on:
Blocks:
 
Reported: 2025-01-24 06:58 UTC by rolf.kuehlwein
Modified: 2025-01-27 06:01 UTC (History)
1 user (show)

See Also:
Crash report or crash signature:


Attachments

Note You need to log in before you can comment on or make changes to this bug.
Description rolf.kuehlwein 2025-01-24 06:58:05 UTC
Hello Team,
i use the event function(Sheet - events - content changed) in Calc to start a makro,this work's only in the first sheet. If I set this in other sheets it does not work in these.
Comment 1 Anna 2025-01-24 11:42:16 UTC
(In reply to rolf.kuehlwein from comment #0)
> Hello Team,
> i use the event function(Sheet - events - content changed) in Calc to start
> a makro,this work's only in the first sheet. If I set this in other sheets
> it does not work in these.

Hi, can you provide more details that help to reproduce the error?
Comment 2 rolf.kuehlwein 2025-01-24 12:19:57 UTC
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
Comment 3 rolf.kuehlwein 2025-01-24 12:23:24 UTC
Sorry ,

For the Sheet "oTabelle" i used "oDokument.currentcontroller.activesheet"
Comment 4 Werner Tietz 2025-01-24 16:50:10 UTC
Hallo

It is impossible for us to check whether and what the functions »AktuelleZeile ... AktuelleSpalte... and last not least SuchenNach(...)« actually do!!
Comment 5 rolf.kuehlwein 2025-01-27 06:01:44 UTC
Hello Team ,

I' sorry . I tryed it in a new Document.
And there it works.
I looked after the error.

Sorry , many thank's.
Rolf