Code: Selecteer alles
sub hernoem_huidig_blad()
Dim oDoc, oSheet, oCell
oDoc = ThisComponent
oSheet = oDoc.getCurrentController.getActiveSheet
oCell = oSheet.getCellByPosition(4,0) 'cell E1
oSheet.Name = oCell.String
End Sub
Code: Selecteer alles
sub hernoem_huidig_blad()
Dim oDoc, oSheet, oCell
oDoc = ThisComponent
oSheet = oDoc.getCurrentController.getActiveSheet
oCell = oSheet.getCellByPosition(4,0) 'cell E1
oSheet.Name = oCell.String
End Sub