Werkblad een naam geven na een cel

Inhoudsopgave

Een tabelnaam definiëren met een macro

Wil je zeker weten dat de naam van de actieve tabel is ingesteld op de tekst die in een specifieke cel in de tabel staat? Gebruik de volgende macro:

Subtabelnamen instellen ()
Dim Cell als String
Cel = "a1"
ActiveSheet.Name = ActiveSheet.Bereik (cel) .Text
Einde sub

Met de waarde van de variabele cel definieer uit welke cel de tekst moet worden gehaald. Om dit te doen, brengt u de juiste celverwijzing (hier: A1) over als het adres.

De macro haalt de inhoud uit de corresponderende cel in de actieve tabel. Het huidige werkblad wordt dan dienovereenkomstig hernoemd. De volgende afbeelding toont een voorbeeld van een hernoemde tabel:

U zal helpen de ontwikkeling van de site, het delen van de pagina met je vrienden

wave wave wave wave wave