Avatar billede medusa Nybegynder
07. august 2003 - 11:46 Der er 7 kommentarer og
1 løsning

VBA: Findes mit worksheet ?

I min kode skal jeg tjekke om et worksheet allerede findes, men hvordan gør man det?

Eks:
If worksheets("test").findes = true then
  gør noget
else
  opret den
end if
Avatar billede martin_moth Mester
07. august 2003 - 11:55 #1
Du kan loop over alle worksheets, og se om et af navne allerede findes:
   
    TestArknavn = "test"
    AntalArk = Val(Sheets.Count)
    For i = 1 To AntalArk
      If Sheets(i).Name = TestArknavn Then
        MsgBox "arknavn " & TestArknavn & " findes i forvejen"
      End If
    Next i
Avatar billede martin_moth Mester
07. august 2003 - 11:56 #2
Forudsat vi taler om Excel ;o)
Avatar billede medusa Nybegynder
07. august 2003 - 12:02 #3
Hæ ups, jo det er naturligvis Execl jeg snakker om.

Det ser ud til at virke, så mange tak for hjælpen.

Fandt btw følgende funktion på nettet (http://www.erlandsendata.no/english/vba/ws/):

Ved ikke om den er lettere end din, men nu har andre med samme problem da noget at vælge imellem.

Function SheetExists(SheetName As String) As Boolean
' returns TRUE if the sheet exists in the active workbook
    SheetExists = False
    On Error GoTo NoSuchSheet
    If Len(Sheets(SheetName).Name) > 0 Then
        SheetExists = True
        Exit Function
    End If
NoSuchSheet:
End Function

Example:

If Not SheetExists("MySheetName") Then
    MsgBox "MySheetName doesn't exist!"
Else
    Sheets("MySheetName").Activate
End If
Avatar billede martin_moth Mester
07. august 2003 - 12:12 #4
"Din" løsning er nok bedre hvis der er rigtig mange sheets, da "min" løsning vil bruge tid på at loope dem alle igennem. DOg ikke noget der kan mærkes ved et normalt antal sheets...

Lige et spørgsmål: Hedder du "Med USA", og forsøger dermed at signalere noget politisk, eller hedder du blot "Medusa", altså et navn fra den græske mytologi? Bare nysgerrig...
Avatar billede medusa Nybegynder
07. august 2003 - 12:56 #5
Du er ikke den eneste som er nysgerrig på det punkt. Jeg har dog aldrig forstået hvorfor nogen overhovedet tror det er "med usa" - ville man så ikke bruge "-" tegnen mellem ordene?!
Men for at svare på dit spm så er det Medusa fra græsk mytologi. Måske er det min underbevisthed som prøver at fortælle mig at jeg egentlig hader andre mennesker og dermed forklare hvorfor jeg blev systemudvikler. Eller også var det fordi det var det eneste jeg kunne komme i tanke om som et værdigt synonym for mit rigtige navn.
Kan ikke rigtig huske hvorfor jeg valgte det.
:-)
Avatar billede martin_moth Mester
07. august 2003 - 13:09 #6
I disse enten "for eller imod USA"-tider synes jeg det er oplagt at tro at du mener "med USA" - måske fordi navnet ikke starter med stort, og derved antyder at det faktisk er et navn..?

Anyway - det var vist ikke det spørgsmålet gik på :o)

Er stolt over at jeg som fritids-amatør kan hjælpe en systemudvikler (he he)

/Martin
Avatar billede medusa Nybegynder
07. august 2003 - 13:15 #7
Til mit forsvar vil jeg lige sige at jeg ikke har VBA som mit speciale. Faktisk begyndt jeg først for et par måneder siden så jeg er ikke helt inde i de muligheder sproget har + hjælpen i VBA er elendig så jeg er nød til at benytte hjælpen fra selv-lærte nørder. :-)

/Medusa

ps: dit navn begynder heller ikke med stort. øv bøv.
Avatar billede martin_moth Mester
07. august 2003 - 13:17 #8
Selv øv-bøv ;-)
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
Kurser inden for grundlæggende programmering

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

Seneste spørgsmål Seneste aktivitet
I dag 10:21 Ny printer, men hvilken Af mort1 i Printere
I går 19:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
10/0821:30 Blokeret på Snapchat? Af LineP i Chat & Messaging