Excel VBA til at tilføje ark, hvis det ikke findes (med hurtige trin)

Hugh West

16-10-2023 Makroer & Excel VBA
  • Del Dette
Hugh West

Excel VBA er et kraftfuldt og praktisk værktøj til at udføre opgaver ret hurtigt i en stor mængde. Du kan anvende flere betingelser og udlede forskellige resultater på grundlag af de enkelte betingelser via VBA. Nu vil du måske nogle gange kontrollere, om et bestemt ark findes i din projektmappe. Og hvis ikke, skal du måske oprette det ark. I denne artikel vil jeg vise dig alle trinene til at tilføje et ark hvis den ikke findes, ved hjælp af Excel VBA.

Excel VBA: Tilføj ark, hvis det ikke eksisterer (en hurtig visning) 

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Hvilket ark leder du efter?", _ "Tilføj ark hvis det ikke findes", "Sheet5", , , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "The ''" & addSheetName & _ "''' ark harer blevet tilføjet, da det ikke eksisterede.", _ vbInformation, "Add Sheet If Not Exist" Else MsgBox "The ''" & addSheetName & _ "''sheet already exists in this workbook.", _ vbInformation, "Add Sheet If Not Exist" End If End Sub

Indsæt i et nyt modul for at anvende ovenstående kode.

Download arbejdsbog til øvelser

Du kan downloade vores arbejdsbog gratis herfra!

Tilføj ark, hvis det ikke eksisterer.xlsm

Trin til at anvende VBA-kode til at tilføje ark i Excel, hvis det ikke eksisterer

Lad os sige, at du har en projektmappe, der indeholder 4 regneark med navnene januar, februar, marts og april. Hvert ark indeholder den følgende måneds salgsrapport. Nu skal du finde nogle ark i projektmappen og tilføje arket, hvis det ikke findes. Du kan følge nedenstående trinvise vejledning for at opnå dette.

📌 Trin 1: Indsæt et nyt modul

Først skal du indsætte et modul til at skrive VBA-kode.

  • For at gøre dette skal du i begyndelsen gå til Udvikler faneblad>> Visual Basic værktøj.

  • Som følge heraf har Microsoft Visual Basic for Applications vinduet vises.
  • Derefter skal du gå til Indsæt faneblad>> Modul værktøj.

Der er således oprettet et nyt modul ved navn Modul1 er blevet oprettet.

Læs mere: Sådan tilføjes ark med navn i Excel VBA (6 nemme måder)

Lignende læsninger

  • Opret en ny projektmappe og gem ved hjælp af VBA i Excel
  • Excel VBA: Opret en ny projektmappe og navngiv den (6 eksempler)
  • Sådan oprettes nyt ark fra skabelon ved hjælp af makro i Excel

📌 Trin 2: Skriv og gem den nødvendige VBA-kode

Nu skal du skrive koden i modulet og gemme den.

  • For at gøre dette skal du klikke på Modul1 og skriv følgende kode i kodevinduet. 
 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Hvilket ark leder du efter?", _ "Tilføj ark hvis det ikke findes", "Sheet5", , , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "The ''" & addSheetName & _ "''' ark harer blevet tilføjet, da det ikke eksisterede.", _ vbInformation, "Add Sheet If Not Exist" Else MsgBox "The ''" & addSheetName & _ "''sheet already exists in this workbook.", _ vbInformation, "Add Sheet If Not Exist" End If End If  Under

  • Som følge heraf vil kodevinduet se ud som følger.

🔎 Kodeforklaring:

♣ Segment 1: 

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String

I denne del har vi angivet makronavnet og variabelnavnene.

♣ Segment 2: 

 addSheetName = Application.InputBox("Hvilket ark leder du efter?", _ "Tilføj ark hvis det ikke findes", "Sheet5", , , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name

I denne del har vi oprettet et indtastningsfelt, hvor vi kan indtaste navnet på den fil, som vi skal finde.

♣ Segment 3: 

 If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "Arket ''" & addSheetName & _ "''' er blevet tilføjet, da det ikke fandtes.", _ vbInformation, "Add Sheet If Not Exist"

I denne del kontrollerer vi, om det ønskede ark findes i arbejdsbogen. Hvis ikke, oprettes det ønskede ark og viser os en meddelelse om ændringen.

♣ Segment 4: 

 Else MsgBox "The ''" & addSheetName & _ "''sheet already exists in this workbook.", _ vbInformation, "Add Sheet If Not Exist" End If End Sub

I denne del har vi arbejdet med resultatet, hvis det ønskede ark allerede findes i regnearket. I dette scenario vises en anden meddelelsesboks, der informerer dig om, at dette ark findes. Desuden afslutter vi koden korrekt i denne del.

  • Derefter skal du trykke på Ctrl + S.

  • Efterfølgende blev en Microsoft Excel vinduet vises. Klik på den Nej knap.

  • Som følge heraf har Gem som vinduet vises.
  • Efterfølgende skal du vælge den Gem som type: som .xlsm format. Klik derefter på Gem knap.

Du har således skrevet og gemt den ønskede kode.

Bemærk:

Du skal gemme Excel-arbejdsmappen i .xlsm Ellers vil makroen ikke blive aktiveret, og koden vil ikke fungere.

Læs mere: Excel VBA til at tilføje ark med variabel navn (5 ideelle eksempler)

📌 Trin 3: Kør koden

Nu skal du køre koden og kontrollere resultaterne.

  • For at gøre dette skal du først og fremmest klikke på Kør ikonet i den Microsoft Visual Basic for Applications vindue.

  • Som følge heraf har Makroer vinduet vises.
  • Vælg derefter den AddSheetIfNotExist makro, og klik på den Kør knap.

  • På dette tidspunkt vil vores oprettede meddelelsesboks med navnet Tilføj ark, hvis det ikke eksisterer vises. Her vil den automatiske indstilling være Ark5 .

  • Skriv nu, for at kontrollere, følgende "April" i tekstfeltet og klik på Ok knap.

  • Derefter vil du se, at der vises en anden beskedboks, som fortæller dig, at arket allerede findes.
  • Klik på den Ok knap.

  • Derefter skal du køre koden igen og skrive "maj" i tekstfeltet i den oprettede meddelelsesboks. Klik derefter på OK knap.

  • Som følge heraf vises en anden beskedboks, der informerer dig om, at den "maj" ark ikke fandtes, og derfor blev dette ark oprettet.
  • Klik derefter på den OK knap.

Endelig kan du se, at du har tilføjet et ark, som ikke fandtes før, og at arbejdsbogen nu ser således ud.

Læs mere: Excel VBA: Tilføj ark efter sidste ark (3 ideelle eksempler)

Konklusion

Så i denne artikel har jeg vist dig alle trin for at tilføje et ark, hvis det ikke findes med Excel VBA. Gennemgå hele artiklen omhyggeligt for at forstå det bedre og opnå dit ønskede resultat. Jeg håber, at du finder denne artikel nyttig og informativ. Hvis du har yderligere spørgsmål eller anbefalinger, er du velkommen til at kontakte mig.

Og, besøg ExcelWIKI for mange flere artikler som denne. Tak!

Forrige indlæg Excel LOOKUP vs VLOOKUP: Med 3 eksempler
Næste indlæg Kan ikke kopiere sammenlagte celler i Excel (4 løsninger)

Hugh West er en meget erfaren Excel-træner og analytiker med over 10 års erfaring i branchen. Han har en bachelorgrad i regnskab og finans og en kandidatgrad i Business Administration. Hugh har en passion for undervisning og har udviklet en unik undervisningstilgang, der er nem at følge og forstå. Hans ekspertviden om Excel har hjulpet tusindvis af studerende og fagfolk verden over med at forbedre deres færdigheder og udmærke sig i deres karriere. Gennem sin blog deler Hugh sin viden med verden og tilbyder gratis Excel-tutorials og onlinetræning for at hjælpe enkeltpersoner og virksomheder med at nå deres fulde potentiale.