Ark navn

Denne makro skal ligge i arkets kodemodul.

Hej store-morten
Skal jeg indspille en makro, eller kan jeg bare lægge den ind i Moduels som et modul.

Klaus W

Denne makro skal ligge på arket.

Kopier koden.
Højreklik på arket og vælg: Vis programkode
Ctrl +v

Takker
Jeg er lidt tung i det når det er Makro

Takker
Forsat god søndag

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$2" Then ActiveSheet.Name = Target.Value
End Sub

Du skal indsætte koden i selve arkets eget kodemodul.

Højre-klik på ark fanen i bunden af arket, og vælg 'Vis programkode', og indsæt koden i det modul.

Det har jeg prøvet fik ikke det til at køre, prøver lige igen
KW

Det er jeg simpelthen for tung til at få den til :-)

KW

Hvad sker der???

Det er simpel copy/paste...

Er dit regneark gemt som .XLSm eller .XLSx???

Husk, at dit regnearksfil skal være .XLSm, hvis det indeholder makroer.

Klaus, det er den samme kode skrevet på en anden måde ;-)

Så du skal kun bruge en af dem.

Der er mange forskellige måder at skrive kode på.
1.2.3.
Er alle ens, men brug kun en af dem.

Nogen kan lide moderen andre kan lide datteren ;-)

Tag evt. et kig her:
http://www.EXCELGAARD.dk/Bib/Makroer/Indsaet/

#Dan, reklame ;-)

Dit link: The page is blocked by Bitdefender Endpoint Security Tools Cloud (Malware).

Ikke reklame...

No idea, hvorfor Bitdefender vælger, at blokere en hjemmeside, der er ren HTML, uden scripts, cookies, HTML5, java, eller andet...

Bedste bud må være, at du har sat din Bitdefender til, at blokere hjemmesider, der ikke er 'https'.

Godaften begge 2, I tror det er løgn men jeg fik det til at køre, MEN for der er et MEN.
Jeg startede et ganske alm. nyt rent Excel ark op og gjorde som I beskrev. Og wupti det fungerede :-) Stort smil hos KW, men da jeg så ville overføre det til min tjenesteliste Excel ark, så fungerede det ikke. Kan det skyldes at der allerede er nogle af Arkene der hedder det sammen? Eller kan det være fordi der allerede køre en Makro kode i Arkene?
KW

To "ark" kan ikke hedde det samme. 👨‍💻
Og du er med på koden kun køres når cellen ændres? ✍
Og at koden skal lægges på alle ark hvor det skal virke

Ja det er jeg,
Men er der problemer hvis der står en kode til noget andet samme sted?
Ja der er jeg med på.

Tak for hjælpen
Det er jo delvis løst :-)
KW

Denne linje må kun være der en gang

Private Sub Worksheet_Change(ByVal Target As Range)

Ellers upload dit ark et eller andet sted, så vi kan kigge på det - det burde være hurtigt, at se, hvor det driller...

Hej Dan gør jeg

https://www.dropbox.com/s/4vut26ikcjsz2n2/Tjenesteliste%20v1.5%2003-03-2019%20april%20til%20April.xlsm?dl=0

Vil du evt. kikke på den UseForm der er lavet ikke at der er noget galt men jeg syntes bare den driller på Excel 2010 som min arbøs PC køre på, på forhånd tak

Ctrl+Shift+H

Klaus W

Hej Klaus, du har lagt koden i et Modul.

Koden skal ligge på  all de ark hvor det skal virke.

Ark navn?
"F.eks. Hvis der står Januar i Celle D2, skulle Arket gerne hedde Januar. Og hvis jeg ændre navnet i Celle D2 til Maj skal Arket navngives Maj."

Så gik jeg ud fra at du ændre celle D2 til Maj

Her under står der: Gør noget hvis der ændres i arket, altså tastes i arket.

Private Sub Worksheet_Change(ByVal Target As Range)

Og derefter kikkes der på om det er en bestemt celle der ændres, hvis dette er tilfældet, tages denne celles indhold og om døber fanen.

Du bruger en celle der ændres med en formel som ændres af en anden celle med en formel der er flygtig, så det komme aldrig til at virke ;-(

Ang. din UserForm går den i loop når den åbnes.

Og du har en masse kode der kan slettes.