CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

Chenowen Nybegynder

05. juli 2013 - 08:23 Der er 3 kommentarer og
1 løsning

Overfør worksheets fra en workbook til en anden vha. VBA

Hej Eksperter,

Er det muligt at overføre alle worksheets/faner fra en workbook til en anden ved hjælp af VBA, når jeg ikke vil kende navnet på den workbook jeg ønsker at overføre fanerne fra? Jeg tænkte at der måske kan laves en kode, som fungerer hvis jeg har begge workbooks åbne, og man derigennem kan copy fra en åben workbook, og overføre til den aktive workbook? Macroen skal nemlig køre fra den workbook jeg ønsker at kopiere til! Håber det er forståeligt, ellers må i endelig sige til.

- Jeppe

Synes godt om

kabbak Professor

05. juli 2013 - 13:29 #1

prøv med

Public Sub HentArk()
Dim WB As Workbook, SH As Worksheet
For Each WB In Workbooks
If WB.Name <> ThisWorkbook.Name Then
WB.Activate

For Each SH In ActiveWorkbook.Sheets
SH.Copy Before:=ThisWorkbook.Sheets(1)
Next
End If
Next
End Sub

Synes godt om

Chenowen Nybegynder

08. juli 2013 - 08:31 #2

Hej Kabbak, koden fungere, men lige et hurtig spørgsmål! Fanerne bliver kopieret over i omvendt rækkefølge, så er det muligt at modificere ovenstående kode, så fanerne bliver kopieret i den rækkefølge de er i workbook'en der blive kopieret fra?

Synes godt om

kabbak Professor

10. juli 2013 - 22:57 #3

Public Sub HentArk()
Dim WB As Workbook, SH As Worksheet, Efter As String
Efter = ThisWorkbook.ActiveSheet.Name

For Each WB In Workbooks

If WB.Name <> ThisWorkbook.Name And InStr(1, UCase(WB.Name), "PER") = 0 Then
X = WB.Name
WB.Activate
For Each SH In ActiveWorkbook.Sheets
SH.Copy after:=ThisWorkbook.Sheets(Efter)
Efter = SH.Name
Next
Exit Sub
End If
Next

End Sub

Synes godt om

Chenowen Nybegynder

11. juli 2013 - 11:49 #4

Tak for det Kabbak, det virker helt upåklageligt!

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

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Automatisk give specifikke point udfra placering Af jernrosen3 i Excel	5	19/12/202410:24	I går 13:14
Delvis udfyld en celle, baseret på en %-sats fra anden celle Af Brian Nielsen i Excel	2	16/12/202415:27	17/12/202422:03
Hjælp til formatering af excel ark. Af Nicholas i Excel	23	13/12/202412:32	18/12/202415:44
To x-akser men kun ét datasæt? Af TheLibrarian i Excel	1	10/12/202409:17	10/12/202410:35
Isolere en dato i tekst/tal Af jernrosen3 i Excel	7	09/12/202408:59	09/12/202410:38

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