Makro starten op basis van cel waarde

[1e_skip]

Hoi, Ik ben nog een beginnen met makro,s en ben benieuwd of er iemand me hier mee kan helpen. Ik heb een basic Makro gevonden op internet die ik heb aangepast en werk verder goed in calc, maar hij is niet variabel. Alleen op deze manier moet ik telkens voor ieder een tabblad een nieuw maken.

--------------------Makro:-----------------------------------------
Sub change_value(cell)
If cell.AbsoluteName = “$WBS-1.$B$89” Then
Select Case cell. String
Case “Persoonlijk”: Persoonlijk
Case “Gezamelijke”: Gezamelijke
Case “Beide”: Beide
End Select
End If
End Sub

Sub Persoonlijk()
doc = ThisComponent
sheet = doc.CurrentController.ActiveSheet
range = sheet.getCellRangeByName(“A90:A100”)
range.Rows.isVisible = False
range = sheet.getCellRangeByName(“A101:A110”)
range.Rows.isVisible = True
End sub

Sub Gezamelijke()
doc = ThisComponent
sheet = doc.CurrentController.ActiveSheet
range = sheet.getCellRangeByName(“A90:A100”)
range.Rows.isVisible = True
range = sheet.getCellRangeByName(“A101:A110”)
range.Rows.isVisible = False
End sub

sub Beide()
doc = ThisComponent
sheet = doc.CurrentController.ActiveSheet
range = sheet.getCellRangeByName(“A90:A100”)
range.Rows.isVisible = True
range = sheet.getCellRangeByName(“A101:A110”)
range.Rows.isVisible = True
End sub

is er een manier om

If cell.AbsoluteName = “$WBS-1.$B$89”

te vervangen door

doc = ThisComponent
sheet = doc.CurrentController.ActiveSheet

alvast bedankt voor de hulp.

[PKG]

Start macro based on cell value

Hi, I am still starting with macros and I am curious if someone can help me with this. I found a basic macro on the internet that I have adjusted and it works in calc as soon as I start it manually. But not when I choose something in the selection list in cell B89, And the second thing is that it is not variable. With this macro I have to create a new macro for each tab. --------------------Makro:----------------------------------------- Sub change_value(cell) If cell.AbsoluteName = “$WBS-1.$…

[1e_skip]

Thank you, you are great. I will test it right away.

[1e_skip]

Okay, I see what I’m doing wrong. No, it’s exactly the same, I think.

[1e_skip]

Or do you mean that I asked my question in two languages ​​and that this is not allowed?

I thought it would be useful to increase the reach of readers.

[PKG]

Het is toegestaan, maar er wordt verwacht dat berichten aan elkaar worden gekoppeld om dubbele antwoorden te voorkomen.

[1e_skip]

Oke hoe kan ik berichten koppelen dan als ik vragen mag