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
VBA - Excel programering til Onenote Af ingeman i Excel 0 I går 12:37 -
SQL til excel med farver Af Jjn i Excel 1 I går 11:50 I går 13:56
Tidsformater Af Peder Lund Nielsen i Excel 5 21/04/202520:54 23/04/202522:15
Opdele ét ark i flere ark Af karina1971 i Excel 13 15/04/202507:20 16/04/202509:07
Arbejdstid opdeles i tidsintervaller Af Camilla i Excel 2 14/04/202516:08 14/04/202517:17
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 23:30 Egenskaber/genvejstast virker ikke mere Af Blød trafikant i Windows
I går 16:12 Forbind TDC NET fiber til router med én SPF+ WAN-port Af Gustav i LAN/WAN
I går 15:37 DMI vejr Af hkv i Browsere
I går 12:37 VBA - Excel programering til Onenote Af ingeman i Excel
I går 11:50 SQL til excel med farver Af Jjn i Excel
White papers
Flere white papers »


Premium
Teaser billede
Se listen: Disse 10 it-færdigheder kaster den højeste løn af sig lige nu
Læs mere »
Verdens vigtigste sårbarhedsdatabase var få øjeblikke fra at lukke: Det bør være et wake up-call for os alle
Klaus Koefoed Eriksen står i spidsen for stor europæisk cloud-leverandør: "Vi oplever stor interesse for europæiske cloud-alternativer"
Brødrene Trackman slår sig til ny salgsrekord på 1,8 milliarder kroner – men USA-afhængighed kaster skygger over fremtiden
Se alle »
Computerworld
Teaser billede
Facebook og Instagram vil igen anvende dine opslag og kommentarer til at træne AI-modeller: Sådan kan du undgå det
Læs mere »
Det koster millioner, når du er høflig over for ChatGPT
Donald Trump og Elon Musk kan koste IBM dyrt: Mister stribevis af offentlige kontrakter
Google udløste ‘Code Red’ i panik: Nye tal viser frygten er reel i Europa
Se alle »
CIO
Teaser billede
Region Syddanmark vil købe kæmpe it-system og gå i clouden - står klar med næsten kvart milliard kroner
Læs mere »
Sådan har Microsoft Danmark erstattet 80 procent af stillingerne i sin økonomi-afdeling med AI - og gjort medarbejderne glade
En af Danmarks bedste CIO'er, Klaus Larsen, fratræder sin stilling i Region Nordjylland - skifter til nyt topjob
Klaus Koefoed Eriksen står i spidsen for stor europæisk cloud-leverandør: "Vi oplever stor interesse for europæiske cloud-alternativer"
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
Danske it-folk lokkes med store tiltrædelses-bonusser: Nu kan du score mere end 100.000 kroner ved at skrive under på ny jobkontrakt
Se alle »
White paper
Teaser billede
Sikkerhed gjort enkelt: Beskyt din virksomhed direkte i browseren
Læs mere »
Sådan sikrer du nem og beskyttet adgang til dine ressourcer
AI og kunderejsen: Sådan vinder du fremtidens forbrugere
Tidsbegrænset kampagne: Overvejer du at udskifte eller tilføje printere i din forretning? Vi kan tilbyde én eller flere maskiner gratis
Se alle »

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