CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede Excel Optimisten Mester
16. april 2019 - 10:45 Der er 2 kommentarer og
2 løsninger

Slette indhold i celler for flere ark

Hvis jeg gerne vil fjerne indholdet i cellerne W2 til W48 i "Ark1" til og med "Ark3" og dernæst fjerne indholdet for A2 til A48 i "Ark4" til og med "Ark9"
Hvordan skal det så sættes op. Lige nu er der en linje pr. ark.

Private Sub CommandButton1_Click()
        Sheets("Ark1").Range("W2:W48").ClearContents
        Sheets("Ark2").Range("W2:W48").ClearContents
        Sheets("Ark3").Range("W2:W48").ClearContents
        Sheets("Ark4").Range("A2:A48").ClearContents
        Sheets("Ark5").Range("A2:A48").ClearContents
        Sheets("Ark6").Range("A2:A48").ClearContents
        Sheets("Ark7").Range("A2:A48").ClearContents
        Sheets("Ark8").Range("A2:A48").ClearContents
        Sheets("Ark9").Range("A2:A48").ClearContents
End Sub

Kan man få den til at gøre det i intervaller såsom "Ark1:Ark3" og "Ark4:Ark9"?
Avatar billede kim1a Ekspert
16. april 2019 - 11:01 #1
Du kan lave en select case eller en for to loop

F.eks.
For s = 1 to 3
Sheets(s).range("W2:W48").clearcontents
next s
og så
For s = 4 to 9

s er blot random valgt.

Select case er også cool, men lidt mere omstændig i denne situation.
Avatar billede Excel Optimisten Mester
16. april 2019 - 11:37 #2
Det fungerer glimrende!
Nu har jeg sat op som følgende:

Private Sub CommandButton3_Click()
Dim i As Integer

For i = 1 To 3
    Sheets(i).Range("W2:W48").ClearContents
Next i
End Sub

Er der en måde hvorpå jeg kan kode det ind med Navnene på arkene, så man ikke skal tælle dem op?

(For i = Januar To December) ?
Avatar billede kim1a Ekspert
16. april 2019 - 12:31 #3
Nej, her bliver du nok nødt til at se på select case tankegangen. Du skal dog huske på at selvom dine ark hedder noget andet kan de stadig i vba refereres som sheets(1) etc.

Alternativt kunne du tænke på om du i en fast celle på alle ark kan angive f.eks. om den skal køre version 1 eller 2

for i = 1 to 12
if sheet(i).range("q2").value = 1 then
sheets(i).range("W2:"48").clearcontents
else
sheets(i).range("A2:A48").clearcontents

Blot et tænkt eksempel.
Avatar billede Excel Optimisten Mester
16. april 2019 - 12:45 #4
Fantastisk. Tak for Hjælpen
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
Mellem tidspunkter Af nyhavn18 i Excel 3 02/07/202519:07 03/07/202506:29
Oversigt over antal feriedage Af AnjaJesse i Excel 8 02/07/202510:02 03/07/202509:11
Brugere må gerne redigere, men ikke overskrive default sortering eller filtrering Af mj72 i Excel 6 30/06/202516:17 I går 11:40
Scanning af stregkode til flere celler Af zekedk i Excel 1 26/06/202508:55 26/06/202510:26
Beregning af flextid med timebank Af Lystfisker i Excel 2 24/06/202519:30 25/06/202508:15
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 19:11 Ændre autoudfyld i Outlook og Word Af TTA i Office & Kontorpakker
I dag 12:27 Office Pro 2019 forsvinder Af mort1 i Office & Kontorpakker
I går 16:34 Se filmen : "Vi, som går køkkenvejen" (Hovedperson : Birgitte Reimer Af Ikke-ekspert i Fri debat
02/0719:07 Mellem tidspunkter Af nyhavn18 i Excel
02/0710:02 Oversigt over antal feriedage Af AnjaJesse i Excel
White papers
Flere white papers »


Premium
Teaser billede
Vil fyre tusindvis af ansatte globalt: Nu reagerer Microsofts danske organisation med 800 medarbejdere
Læs mere »
Staten binder sig med ny aftale til Microsoft i usædvanlig lang tid - og det er der en særlig årsag til
Pengene vælter ud af den danske Dynamics-kæmpe Cepheo i selskabets andet leveår - men forretningen buldrer frem
Du skal opdatere hurtigst muligt: Alvorlig sårbarhed opdaget i Citrix-software
Se alle »
Computerworld
Teaser billede
Danmarks største fiberselskab skifter navn: Norlys skal ikke længere hedde Norlys
Læs mere »
Glemte at fjerne adgang for suspenderet it-medarbejder: Næste dag var kunder i Tyskland og Bahrain låst ude
Amerikansk koncern med 700 ansatte i Danmark: Sender besked til kunder 21 måneder efter storstilet angreb
Aktie-kursen ottedoblet på fire år: Er nu verdenshistoriens mest værdifulde selskab
Se alle »
CIO
Teaser billede
Microsoft kæmper med at få Copilot ud over rampen – og det skyldes især én ting
Læs mere »
Her står medarbejderne for at ansætte og fyre - og det har gjort rekruttering af it-professionelle langt lettere
Rigspolitiet gør klar til stort opgør med it-evighedskontrakter: Søger hjælp fra leverandørerne
Mange CISO'er mistrives i jobbet: Nu stiller tidligere cyber security-chef i Energinet og Ørsted et kontroversielt forslag
Se alle »
Job & Karriere
Teaser billede
Fungerede ikke: Dropper AI som erstatning for kundeservice-medarbejdere - har nu brug for nye folk
Læs mere »
It-chef og halv it-afdeling fyret i forsikringsselskab på grund af kommentar om potteplante
Danske it-folk tør ikke længere skifte job hele tiden - og det er der en særlig årsag til
Itm8 fyrer: Opsiger ansatte og reorganiserer
Se alle »
White paper
Teaser billede
Sådan samler du virtualisering og containerdrift i én løsning
Læs mere »
NIS2: Sådan styrker du både cybersikkerhed og compliance
Sådan automatiserer du vagtplanlægningen med AI
IT i front: Sådan bliver netværk en strategisk driver
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »