Hernoem naam blad naar inhoud van een cel

Forumregels
In dit forum geen vragen stellen, het is uitsluitend bedoeld voor het plaatsten en toelichten van code. Stel vragen in het forum Macro's.
Gebruikersavatar
DiGro
Berichten: 86
Lid geworden op: wo mei 13, 2009 4:57 pm
Locatie: Hoorn NH

Hernoem naam blad naar inhoud van een cel

Bericht door DiGro »

Hernoem het huidige blad in uw werkblad met als naam de inhoud van cel E1 op uw huidige werkblad:

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
DiGro

----------------------------------------------------
Windows 11 en AOO 4.1.15
Gescand door Ziggo Safe Online (F-Secure)