Knop die kolommen verbergt

[Ajangggg]

Hallo,

Ik ben bezig met een formuliertje en nu wil ik graag een knop die je kunt indrukken die een aantal kolommen verbergt en weer terug kan laten komen.

Het voorbeeld staat in bijgevoegde bijlage. (Als je een betere/makkelijke oplossing weet is het ook goed)

Alvast thx!

Arjan

 

[DiGro]

Hallo,

Ik ben bezig met een formuliertje en nu wil ik graag een knop die je kunt indrukken die een aantal kolommen verbergt en weer terug kan laten komen.

Het voorbeeld staat in bijgevoegde bijlage. (Als je een betere/makkelijke oplossing weet is het ook goed)

Ben al blij dat ik het voor elkaar heb gekregen.:love:

Dit is de macro die het doet:

Sub Toon_Verberg

Dim oSheet as Object
Dim oKol as Object

   oSheet = thisComponent.getSheets().getByName("Opmeetformulier")   
   oKol = oSheet.Columns.getByIndex(0)

   for i = 10 to 21 
     oKol = oSheet.Columns.getByIndex(i)
 
  		If oKol.isVisible = True then
    		       oKol.isVisible = False
   		Else
      		       oKol.isVisible =True
  		End If
    next
   
End Sub

Ik heb het bestand bijgevoegd