CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede gladhund Nybegynder
22. juli 2011 - 00:14 Der er 1 kommentar og
1 løsning

Flytte ark til anden workbook

Kære eksperter,

Jeg har to workbooks åbne.

1. Jeg ønsker at flytte de X første ark fra den aktive workbook til den anden workbook (rapport.xlsx) via VBA. X = Sheets("Variable").Range("AB2").value.

2. Arkene skal samtidig have omvendt rækkefølge, så det forreste med index 1 bliver det sidste i destinations-workbook'en og så fremdeles.

Jeg har forsøgt med alle mulige løkker, men det går galt hver gang.

Kan nogen hjælpe?
Avatar billede gladhund Nybegynder
22. juli 2011 - 12:14 #1
Har bla. prøvet med følgende, som ikke virker...


Public Sub FlytArk()

Dim Sidste As Integer
Dim i As Integer
Dim Generator As Workbook

Set Generator = ActiveWorkbook

Sidste = Sheets("Variable").Range("AB1000").End(xlUp).Row

For i = Sidste To 3 Step -1 'pga offset, så der startes i række 3

ActiveWorkbook.Sheets(1).Move Before:=Workbooks("Rapport.xlsx").Sheets(1)

Generator.Activate

Next i

End Sub
Avatar billede gladhund Nybegynder
20. august 2011 - 13:20 #2
lukkes
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
Stort udvalg af Excel kurser til alle niveauer og jobfunktioner
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Fjern første karakter hvis den er / Af TheLibrarian i Excel 4 I går 11:23 I går 14:16
Sammentælling Af karina1971 i Excel 7 01/04/202511:01 I går 13:45
sammentælle - og + værdier hver deres celle. Af fajens i Excel 1 31/03/202512:37 31/03/202512:54
Hjælp til bemandingsskema Af Rikke i Excel 2 26/03/202513:24 26/03/202518:00
formatering brug anden celle til at bestemme farve Af Ronni i Excel 1 25/03/202516:22 26/03/202518:03
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 går 19:42 En lille kundekartotekprogram Af OBS i Java
I går 11:23 Fjern første karakter hvis den er / Af TheLibrarian i Excel
02/0416:29 eclipse Af OBS i Java
01/0422:23 brevflet med office365 og Outlook (New) Af dswebmaster i Office & Kontorpakker
01/0418:34 bitlocker genoprettelse Af Jolles i PC
White papers
Flere white papers »


Premium
Teaser billede
Minister bakker op om dansk kommunes skifte væk fra amerikansk cloud: Interessant tiltag
Læs mere »
Oracle har et særligt våben til at få foden indenfor hos SAP-kunder
It-driftsansatte og administratorer i Danmark har udsigt til kun små lønstigninger i år: Så meget tjener de om måneden
It-kaos til trecifret milliardbeløb: "Ingen har det fulde overblik"
Se alle »
Computerworld
Teaser billede
Prøvekørt: 'Årets bil' er kvadratisk, praktisk og bare god
Læs mere »
Husk det her, når du skal købe it-løsninger næste gang: Vi er vidner til it-branchens største maskefald nogensinde
Elon Musk sælger sit sociale medie X
Guide: Er din Google-konto hacket? Sådan finder du svaret
Se alle »
CIO
Teaser billede
Husk det her, når du skal købe it-løsninger næste gang: Vi er vidner til it-branchens største maskefald nogensinde
Læs mere »
TDC-topchef: Vi kan ikke længere udelukke, at der lukkes for amerikanske it-services i Danmark
EU vil udvikle eget styresystem som alternativ til Windows: På vej med EU OS
Din it-organisation går store forandringer i møde: Inden længe vil AI have bombet den 25 år tilbage
Se alle »
Job & Karriere
Teaser billede
Den danske it-branche er på vagt: Hvad nu hvis Trump lukker for Microsoft 365 og AWS fra på mandag?
Læs mere »
Carsten advarede som it-sikkerhedschef om problemer og blev fyret: "Det endte med voksen-mobning af værste skuffe"
Microsoft fyrer de dårligst performende ansatte: Disse jobtitler bliver ramt
Nørgaard: I de gode gamle dage havde jeg for vane at fyre alle mine medarbejdere jævnligt
Se alle »
White paper
Teaser billede
Udnyt Genesys Cloud CX optimalt og styrk kundeoplevelsen
Læs mere »
Sådan sikrer du nem og beskyttet adgang til dine ressourcer
Tidsbegrænset kampagne: Overvejer du at udskifte eller tilføje printere i din forretning? Vi kan tilbyde én eller flere maskiner gratis
Sådan: Virtualisering uden vendor lock-in og høje omkostninger
Se alle »

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