12. marts 2009 - 18:06Der 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)
Efter ti år i London, Madrid, Paris og Utrecht kommer Sabios AI-fokuserede program af arrangementer om kundeoplevelser, ‘Disrupt’, for første gang til Danmark.
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
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.
