Søg
Avatar billede h_s Forsker
03. juli 2007 - 16:07 Der er 8 kommentarer og
1 løsning

Aktiver Ark

Hvordan aktivere jeg et Ark, hvor navnet står i A1 - Ark Stam

Normalt vil jeg skrive Sheets("Forside").Activate, men jeg kender ikke navnet på Arket. Den står, som jeg skrev ovenfor i A1 - Ark Stam

Jeg har prøvet at deffinere strengen til Arket via:

ark = ActiveWorkbook.Sheets("Stam").Range("A1")

og så

Ark.Activate

Men det virker ikke!

Hvad skal jeg gøre?
Avatar billede Flemming Vadet - Smart Office DK Professor
03. juli 2007 - 16:29 #1
Det er fordi du sætter ARK til at være ligmed en celle - det holder ikke...

Her er den pæne kode:

    Dim wsArk As Worksheet
    Set wsArk = ActiveWorkbook.Worksheets("Stam")
    wsArk.Activate

Men vil måske lave noget fejl håndtering, som checker på om arket "Stam" overhovedet findes - f.eks. som vist her http://www.smartoffice.dk/Tips/LibrarySource.asp?App=Excel&Lib=SheetsExists
Avatar billede h_s Forsker
03. juli 2007 - 16:38 #2
Skal der ikke henvises til celle A1, hvor navnet på det ark, der skal aktiveres står?
Avatar billede kabbak Professor
03. juli 2007 - 17:16 #3
hvis du har arknavnet i:
Worksheets("forside").range("A1")

skal den se sådan ud

Worksheets(Worksheets("forside").range("A1")).Activate
Avatar billede word-hajen Nybegynder
03. juli 2007 - 17:18 #4
Dim objWS as Worksheet
Dim strWSName as String

strWSName = ActiveWorkbook.Sheets("Stam").Range("A1")
set objWS = ActiveWorkbook.Sheets(strWSName)

objWS.Activate
****
anden kode
****

set objWS = nothing

*******************************
Og så lidt fejlhåndtering, som flemmingdahl foreslår.
Avatar billede kabbak Professor
03. juli 2007 - 17:20 #5
jeg nærlæste lige spørgsmplet, det var i arket Stam  celle A1 du havde arknavnet.

Worksheets(Worksheets("Stam").range("A1")).Activate
Avatar billede h_s Forsker
03. juli 2007 - 17:22 #6
Kabbak> Jeg får følgende fejl -> Type mismatch (Error 13)
Hvad betyder det?
Avatar billede kabbak Professor
03. juli 2007 - 17:28 #7
Dim Navn As String
Navn = Worksheets("Stam").Range("A1")
Worksheets(Navn).Activate
Avatar billede h_s Forsker
03. juli 2007 - 17:58 #8
Det virker - Tak!
Avatar billede Flemming Vadet - Smart Office DK Professor
03. juli 2007 - 19:26 #9
Fint I fik det til at virke imens jeg legede far - jeg havde da vist fanget det med "Stam" sådan lidt rund-forvirret-agtigt :-)
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
Inverse formler Af tdktman i Excel 4 26/05/202616:16 I dag 01:06
Flere brugere i 1 delt pivottabel Af mira96ac i Excel 3 26/05/202609:09 I dag 04:23
Beregning af flextid - formler Af Slettet bruger i Excel 0 25/05/202618:29 -
Udseende af datoer Af ErikHg i Excel 8 24/05/202614:56 25/05/202619:06
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 5 17/04/202616:11 27/04/202617:58
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 13:18 Lokal konto Af Bent i Windows
26/0516:16 Inverse formler Af tdktman i Excel
26/0515:33 disk plads på server Af dcedata1977 i Servere
26/0509:09 Flere brugere i 1 delt pivottabel Af mira96ac i Excel
25/0518:29 Beregning af flextid - formler Af Slettet bruger i Excel
White papers
Flere white papers »