[OPGELOST] Nummer automatisch verhogen (CALC)

[ldk]

Is er een methode om via een knop op een sheet automatisch een nummer met b.v.1 te verhogen steeds als er op de knop geklikt wordt. In mso ging dit moeiteloos maar in ooo kan ik het nog steedsniet vinden.

Wie weet hoe en/of waar kan ik zoiets vinden.

Ldk

[GerardV]

Hoi LdK

Bedoel je dat je een cel met een getal 1 wilt ophogen?
Dat kun je volgens mij op de volgende manier doen.

Code: Selecteer alles

Sub CelwaardePlusEen
   oDesktop = createUnoService("com.sun.star.frame.Desktop")
   oDocument = ThisComponent
   oSheets = oDocument.Sheets
   oSheet = oSheets.getByIndex(0)     ' Het eerste blad
         oCell = oSheet.getCellByPosition(0,0)   'Cel A1
         CellVal = oCell.getValue()	'Waarde uit de cel lezen
         oCell.setValue(CellVal + 1) 'Waarde ophogen met 1 en in de Cel schrijven.
End Sub

De macro kun je aan een knop toewijzen die je op de pagina plaatst.

Hoop dat je dit bedoelde...

Groeten
Gerard

[ldk]

Hallo GerardV

Dit is precies wat ik bedoel. Bedankt!

Ldk