Søg
Avatar billede region Nybegynder
17. december 2001 - 13:17 Der er 5 kommentarer og
1 løsning

VBA i Excel HASTER...!!!!

Jeg kører i excel et lille script. :

Sub Macro1()
    Sheets(\"Sheet1\").Select
    Sheets(\"Sheet1\").Copy After:=Sheets(3)
    Sheets(\"Sheet1 (2)\").Select
    Sheets(\"Sheet1 (2)\").Name = \"UK\"
End Sub

Det jeg nu ønsker er at såfremt arket UK findes i forvejen skal macroen ikke gøre noget. Jeg kender ikke VBA i excel særlig godt. Jeg havde tænkt på noget ala\' :

if UK.exist = true then
goto end
else
    Sheets(\"Sheet1\").Select
    Sheets(\"Sheet1\").Copy After:=Sheets(3)
    Sheets(\"Sheet1 (2)\").Select
    Sheets(\"Sheet1 (2)\").Name = \"UK\"
end if
End Sub


men som sagt jeg kender ikke VBA i excel så godt...
Avatar billede bak Forsker
17. december 2001 - 13:49 #1
For i = 1 To Sheets.Count
    If Sheets(i).Name = \"UK\" Then Fundet = true
Next i
if fundet = true then exit sub
Avatar billede bak Forsker
17. december 2001 - 13:58 #2
Faktisk kan du gøre den endnu kortere
For i = 1 To Sheets.Count
    If Sheets(i).Name = \"UK\" Then Exit Sub
Next i
Avatar billede Flemming Vadet - Smart Office DK Professor
17. december 2001 - 13:59 #3
Sammensat kunne det se således ud:

Sub Macro1()
Dim i As Integer, Fundet As Boolean
    For i = 1 To Sheets.Count
        If Sheets(i).Name = \"UK\" Then Fundet = True
    Next i
    If Fundet = False Then
        Sheets(\"Sheets1\").Copy After:=Sheets(3)
        Sheets(\"Sheet1 (2)\").Name = \"UK\"
    Else
        Exit Sub
    End if
End Sub
Avatar billede region Nybegynder
17. december 2001 - 14:05 #4
eller endnu kortere...

Sub Macro1()
For i = 1 To Sheets.Count
    If Sheets(i).Name = \"UK\" Then Exit Sub
Next i
Sheets(\"Sheet1\").Select
Sheets(\"Sheet1\").Copy After:=Sheets(3)
Sheets(\"Sheet1 (2)\").Select
Sheets(\"Sheet1 (2)\").Name = \"UK\"

End Sub
Avatar billede Flemming Vadet - Smart Office DK Professor
17. december 2001 - 14:12 #5
endnu kortere....
Sub Macro1()
For i = 1 To Sheets.Count
    If Sheets(i).Name = \"UK\" Then Exit Sub
Next i
Sheets(\"Sheet1\").Copy After:=Sheets(3)
Sheets(\"Sheet1 (2)\").Name = \"UK\"
End Sub
Avatar billede Flemming Vadet - Smart Office DK Professor
17. december 2001 - 14:14 #6
Uigennemskuelig...!
Sub Macro1()
For i = 1 To Sheets.Count: If Sheets(i).Name = \"UK\" Then Exit Sub: Next i
Sheets(\"Sheet1\").Copy After:=Sheets(3): Sheets(\"Sheet1 (2)\").Name = \"UK\"
End Sub
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
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Office & Kontorpakker kategorien

Titel Indlæg Oprettet Seneste aktivitet
Google sheets beregning udfra dato Af rickiegrayholm i Office & Kontorpakker 2 14/05/202623:24 15/05/202605:03
Back up af foto til ekstern harddisk Af hkprofil i Office & Kontorpakker 11 11/05/202610:48 12/05/202620:08
Kan ikke resette PC med Windows 8.1 Af TTA i Office & Kontorpakker 12 24/04/202617:35 26/04/202612:13
Outlook classic "hænger" når jeg vil åbne vedhæftede filer Af torzen i Office & Kontorpakker 0 16/04/202622:13 -
OneDrive kan ikke tilgås Af Perba i Office & Kontorpakker 19 13/04/202616:33 04/05/202611:48
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 dag 14:56 Udseende af datoer Af ErikHg i Excel
I går 09:37 hvilken AI synes I er bedst? Af jcr18 i Andre onlineløsninger
22/0518:51 Pausepil på youtube i chrome Af valby i Browsere
22/0511:42 Mail med endelsen ".lat" Af ErikHg i E-mail
21/0511:48 Nyåbnede sider flimrer på Android tablet, hvorfor Af annam i Andet software
White papers
Flere white papers »