Notifikationer

Markér alle som læst Log ud

Henry Poulsen Mester

12. marts 2009 - 18:06 Der er 2 kommentarer og
1 løsning

ActiveWindow.SelectedSheets.Delete

Koden i overskriften har jeg sammen med et array brugt til at slette kendt antal ark i en fil.
Mit regneark tilføjes nu et nyt ark hver gang det åbnes Det kan komme til at indeholde ca. 20 ark ialt. Filen gemmes af VBA kode. Men jeg har også brug for en fil alene indeholdende det nyeste ark. Jeg kan flytte arket til første plads i rækken, men hvordan definerer jeg, at de øvrige skal sletts? (antal varierer ved hver kørsel)

Synes godt om

excelent Ekspert

12. marts 2009 - 18:49 #1

Dene sletter alle Ark på nær det længst til venstre

Sub ArkValg()
Dim myArr() As Long
Dim tal, sh, Antal

Antal = ActiveWorkbook.Worksheets.Count
ReDim myArr(1 To Antal)

For sh = 2 To Antal
tal = tal + 1
myArr(tal) = sh
Next

ReDim Preserve myArr(1 To tal)
Sheets(myArr).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub

Synes godt om

Henry Poulsen Mester

12. marts 2009 - 20:52 #2

Tak for forslaget. Det virker perfekt.
Jeg vil ikke påstå at jeg ved hvorfor, men det kan jeg leve med.
Tak for hjælpen. Får jeg lige et svar fra dig?

Synes godt om

excelent Ekspert

12. marts 2009 - 21:16 #3

velbekom

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel	5	17/04/202616:11	27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel	6	13/04/202614:32	15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel	2	31/03/202610:22	31/03/202611:47
Stempel ur start og stop Af lurup i Excel	3	23/03/202613:24	07/05/202614:01
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel	4	08/03/202611:56	08/03/202613:57

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS