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.

Hernoem naam blad naar inhoud van een cel

Berichtdoor DiGro » zo feb 12, 2017 7:47 pm

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

Code: Selecteer alles   UitklappenInklappen
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 10 en AOO 4.1.4
Gescand door Ziggo Uitgebreide Internetbeveiliging (F-Secure)
Avatar gebruiker
DiGro
 
Berichten: 48
Geregistreerd: wo mei 13, 2009 4:57 pm
Woonplaats: Hoorn NH

Keer terug naar Macro voorbeelden

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron