Søg
Avatar billede bjarnehansen Seniormester
20. september 2015 - 12:04 Der er 8 kommentarer og
1 løsning

kopier fane og omdøbe den

Hej
Jeg har denne kode:
Sheets("Master").Select
        Sheets("Master").Copy Before:=Sheets(1)
        Sheets("Master (2)").Select
        Sheets("Master (2)").Name = UserForm1.TextBox1.Value
hvordan kan man lave det så at den navngiver den den nye fane "Master (2)" til "Master2016"
de 2016 kommer fra textbox1
Avatar billede finb Ekspert
20. september 2015 - 13:14 #1
Sheets("Master (2)").Name = "Master" & UserForm1.TextBox1.Value
Avatar billede store-morten Ekspert
20. september 2015 - 13:34 #2
Eller:

Sheets("Master").Select
        Sheets("Master").Copy Before:=Sheets(1)
        FaneNavn = Application.InputBox("Indtast Fane navn:")
        Sheets("Master (2)").Name = "Master " & FaneNavn
Avatar billede store-morten Ekspert
20. september 2015 - 13:37 #3
Og det er ikke nødvendigt at Selecte "Master" først:

        Sheets("Master").Copy Before:=Sheets(1)
        FaneNavn = Application.InputBox("Indtast Fane navn:")
        Sheets("Master (2)").Name = "Master " & FaneNavn
Avatar billede bjarnehansen Seniormester
20. september 2015 - 21:07 #4
det skal bruges i en userform og jeg har flere faner der skal kopiers laver man så bare de samme liner ned under med de navne som de har eller hvorledes ?
Avatar billede store-morten Ekspert
20. september 2015 - 21:20 #5
Prøv:

Sheets("Master").Copy Before:=Sheets(1)
Sheets("Master (2)").Name = "Master " & UserForm1.TextBox1.Value
Sheets("Data").Copy Before:=Sheets(1)
Sheets("Data (2)").Name = "Data " & UserForm1.TextBox1.Value
Avatar billede bjarnehansen Seniormester
20. september 2015 - 22:11 #6
ok så lige et tillægs ?
det jeg taster ind er et årstal som master skal renames til det kan jeg godt finde udaf men hvordan får jeg den til check om årtallet findes og kommer med en advarsel hvis det findes ellers kører den bare vidre.
Avatar billede bjarnehansen Seniormester
20. september 2015 - 22:13 #7
har lavet det test ark:
http://gratisupload.dk/f/8tn6ngyg7i
Avatar billede bjarnehansen Seniormester
21. september 2015 - 10:35 #8
har fundet en løsning på at checke om fanen findes..
Avatar billede store-morten Ekspert
21. september 2015 - 13:56 #9
http://gratisupload.dk/f/8tne06l489/
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
Fjern tekst efter mellemrum Af ABE15 i Excel 2 18/02/202620:41 19/02/202611:30
Udskrift af ark Af boro23 i Excel 4 17/02/202608:38 18/02/202607:46
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 10:32 hvilken afløser kan I anbefale? Af jcr18 i Andet sikkerhed
I går 09:27 Hjælp til Api.asmx Af lurup i Andet programmering
16/0310:59 Ændre navn på ost-fil i Outlook Af TTA i Office & Kontorpakker
15/0316:12 Outlook fejler: 0x80070057 + 0x800CCC0E Af TTA i Office & Kontorpakker
14/0320:13 PIHOLE Af dcedata1977 i Linux
White papers
Flere white papers »