Avatar billede Daffodil Professor
21. juni 2017 - 08:58 Der er 3 kommentarer og
2 løsninger

Navngivning af ark.

Jeg har indføjet følgende VBA kode for at oprette et ekstra ark til sidst.

Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Ark1").Select
Sheets("Ark1").Name = "Dublet"

Mit problem er at de oprindelige tre ark er blevet navngivet førend kodningen opretter dette ekstra ark. Arknavnet det bliver oprettet med er inkonsekvent enten er det Ark1 eller Ark4. Er der en måde hvorpå man kan vælge dette oprettede ark uden at kende navnet?
Avatar billede finb Ekspert
21. juni 2017 - 09:13 #1
Utestet:

if isError(Sheets("Ark1").select then
      (Sheets("Ark4").select
else
        (Sheets("Ark1").select
Endif

eller:

Sheets("Ark" & *).select

Eller:

Sheets("Ark" & *).select

utestet
Avatar billede kabbak Professor
21. juni 2017 - 09:51 #2
Når man tilføjer et ark, bliver det det aktive ark

Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Dublet"
Avatar billede Daffodil Professor
21. juni 2017 - 10:02 #3
isError virker ikke da det er tal den reagerer på jf. beskrivelsen. Har så prøvet med en OnError hvilket heller ikke lykkedes. Den med * virker ikke.

Med kabbaks forslag har jeg problemer med sidst linje, da VBA ligesom forlanger navnet på arket førend den vil ændre det.
Avatar billede finb Ekspert
21. juni 2017 - 10:16 #4
Jeg mindes svagt, at man vist kan sige:

Sheets(1).select
eller
Sheets(4).select

Utestet:
LIKE("Ark*")
Avatar billede Daffodil Professor
21. juni 2017 - 10:23 #5
Jeg har fået kombineret jeres ideer til følgende løsning:

Sheets.Add After:=Sheets(Sheets.Count)
Z = Mid(ActiveSheet.Name, 4, 2)
Sheets("Ark" & Z).Name = "Dublet"

Takker for jeres inspiration.
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

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.

Du kan også logge ind via nedenstående tjenester