Naam van sheet veranderen met knop

[bgoo]

Bijvoorbeeld:

Een van de sheets heet Sander
Ik wil dan als je op een knop drukt, dat die sheet #Betaald Sander gaat heten. (en als je op een andere knop druk, #Betaald weer verdwijnt)

Dezelfde knop wordt gebruikt voor andere sheets, die elke keer wisselende namen hebben. Dus er moet eigenlijk alleen iets voor komen te staan en de rest van de naam moet hetzelfde blijven.

Hartelijk dank!

 

[edmoor]

"Dus er moet eigenlijk alleen iets voor komen te staan"
En dat iets is wel steeds hetzelfde?

application.ActiveSheet.name = " # Betaald " & application.ActiveSheet.name

 

[bgoo]

yup

bedankt, is er ook een macro om #betaald weg te halen?

 

[oeldere]

probeer deze eens.

application.ActiveSheet.name

 

[edmoor]

application.ActiveSheet.name = mid(application.ActiveSheet.name,len(" # betaald "))

of

application.ActiveSheet.name = mid(application.ActiveSheet.name,12)

Of (Netter)

    With Application.ActiveSheet
        .Name = Mid(.Name, Len(" # betaald "))
    End With

Aan jouw de keus

 

[HSV]

With Application.ActiveSheet
        .Name = Mid(.Name, Len(" # betaald ")[COLOR="red"]+1[/COLOR])
    End With

 

[zapatr]

bgoo,
Waarom zou je niet 1 knop gebruiken voor beide acties?
Zie de bijlage, waarbij ik uitgegaan ben van wat je in je eerste bericht schreef,
namelijk dat de bladnaam er zo uit moet zien:
- ofwel alleen een (persoons)naam (doet er niet toe welke).
- ofwel: de (persoons)naam met vóór die naam #Betaald, waarbij er GEEN spatie staat tussen # en Betaald. Moest je die spatie wel willen, dan is dat natuurlijk eenvoudig aan te passen. De oplossing kan overigens ook op een andere manier dan met de midfunctie.

 

[bgoo]

Het werkt perfect, ik heb het nu als checkbox geschreven.

Heb ik al gezegd dat jullie geweldig zijn ?

 

[zapatr]

Dank voor je reactie.
Markeer je de vraag nog even als "Opgelost" a.u.b.?