Actieve werkblad hernoemen

Gert Bouwmeeste · 22 jan 2021

Hoi,

Eigenlijk een suffe vraag

Ik zoek een macro om het actieve werkblad te hernoemen. Zonder dat ik de bestaande naam van het werkblad weet.

Ik heb nu dit

Code:

Sub WerkbladNaam_Wijzigen()
'
' WerkbladNaam_Wijzigen Macro
'

    Sheets("[COLOR="#FF0000"][B]Blad1[/B][/COLOR]").Name = "Nieuwe naam"

End Sub

Ik weet de naam dus niet van het werkblad waar ik op dat moment ben. Of ik moet die ergens kunnen uitlezen en dan gebruiken in de macro. Dat kan ook.

Iemand een idee?

LucHeyndrickx · 22 jan 2021

zo:

Code:

ActiveSheet.Name = "Test"

Zal ook maar één keer lukken, vermits er géén twee werkbladen dezelfde naam kunnen hebben.
"Test" zal dus op een andere manier gevormd moeten worden

edmoor · 22 jan 2021

Met controle:

Code:

Sub WerkbladNaam_Wijzigen()
    Newname = "Nieuwe naam"
    If Evaluate("ISREF('" & Newname & "'!A1)") Then
        MsgBox "Blad " & Newname & " al aanwezig"
        Exit Sub
    End If
    ActiveSheet.Name = Newname
End Sub

mvdvlist · 22 jan 2021

Of:

Code:

Activesheet.Name = Inputbox("Hoe mag ik gaan heten?")

Gert Bouwmeeste · 23 jan 2021

Jemig ... hoe simpel... En dan zoek ik me dan suf naar.

Dank!

emields · 23 jan 2021

als je niet weet hoe je blad heet kan je ook altijd de excel naam gebruiken.

Actieve werkblad hernoemen

Gert Bouwmeeste

Verenigingslid

LucHeyndrickx

Terugkerende gebruiker

edmoor

Inventaris

mvdvlist

Gebruiker

Gert Bouwmeeste

Verenigingslid

emields

Terugkerende gebruiker

Bijlagen

Nieuwste berichten

Wij waarderen jouw privacy