Het kopiëren of bladen verplaatsen met behulp van VBA-code in Excel voor Mac

BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.

De Engelstalige versie van dit artikel is de volgende:288402
Samenvatting
U kunt Microsoft Visual Basic for Applications (VBA)-code wilt kopiëren of verplaatsen van werk bladen in een werkmap of werk mappen. Dit is vooral handig als u veel bladen verplaatst of kopieert, of als u wilt meerdere kopieën van een werk blad.

Dit artikel bevat voorbeelden van VBA-code voor deze taken.
Meer informatie
Microsoft biedt program meer voorbeelden ter illustratie alleen, zonder expliciete of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend met de programmeer taal worden opgespoord en met de hulp programma's die worden gebruikt bent voor het maken en waarmee fouten in procedures. Ondersteuningstechnici van Microsoft kunnen helpen verklaren de functionaliteit van een bepaalde procedure, maar zij zal deze voorbeelden om extra functionaliteit of samens tellen van procedures om te voldoen aan uw specifieke vereisten niet wijzigen.OpmerkingIn Microsoft Excel 2001 voor Macintosh zonder Microsoft Office 2001 voor Mac Service Release 1, moet u de code in een afzonderlijke werkmap uit de gekopieerde bladen plaatsen.

Excel 2001 voor Macintosh is een probleem wanneer de VBA-code gekopieerd van de bladen in dezelfde werkmap bevinden als de bladen worden gekopieerd.

Dit probleem is opgelost met de Service Release 1 voor Microsoft Office 2001 voor Mac.Voor meer informatie over dit probleem in Excel 2001 voor Mac, klikt u op het volgende artikelnummer in de Microsoft Knowledge Base:
286266Excel loopt vast wanneer u een werk blad in dezelfde werkmap kopiëren
:

Voorbeeldcode voor het kopiëren van werk bladen

Een specifiek model in de actieve werkmap kopiëren

Sub Copier1()    'Replace "Sheet1" with the name of the sheet to be copied.    ActiveWorkbook.Sheets("Sheet1").Copy _       after:=ActiveWorkbook.Sheets("Sheet1")End Sub				

Een specifiek model in de actieve werkmap meerdere keren kopiëren

Sub Copier2()    Dim x As Integer        x = InputBox("Enter number of times to copy Sheet1")    For numtimes = 1 To x        'Loop by using x as the index number to make x number copies.        'Replace "Sheet1" with the name of the sheet to be copied.        ActiveWorkbook.Sheets("Sheet1").Copy _           After:=ActiveWorkbook.Sheets("Sheet1")    NextEnd Sub				

De Act iveS heet meerdere keren kopiëren

Sub Copier3()   Dim x As Integer      x = InputBox("Enter number of times to copy active sheet")   For numtimes = 1 To x      'Loop by using x as the index number to make x number copies.      ActiveWorkbook.ActiveSheet.Copy _         Before:=ActiveWorkbook.Sheets("Sheet1")         'Put copies in front of Sheet1.         'Replace "Sheet1" with sheet name that you want.   NextEnd Sub				

Zodra alle bladen in een werkmap kopiëren

Sub Copier4()   Dim x As Integer   For x = 1 To ActiveWorkbook.Sheets.Count      'Loop through each of the sheets in the workbook      'by using x as the sheet index number.      ActiveWorkbook.Sheets(x).Copy _         After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)         'Puts all copies after the last existing sheet.   NextEnd Sub				

Voorbeeldcode voor het verplaatsen van werk bladen

Actieve blad verplaatsen naar een nieuwe positie in de werkmap

Sub Mover1()    ActiveSheet.Move _       After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)       'Moves active sheet to end of active workbook.End Sub				

Actieve blad verplaatsen naar een andere werkmap

Sub Mover2()    ActiveSheet.Move Before:=Workbooks("Test.xls").Sheets(1)    'Moves active sheet to beginning of named workbook.    'Replace Test.xls with the full name of the target workbook you want.End Sub				

Meerdere bladen in ActiveWorkbook verplaatsen naar een andere werkmap

Sub Mover3()   Dim BkName As String   Dim NumSht As Integer   Dim BegSht As Integer   'Starts with second sheet - replace with index number of starting sheet.   BegSht = 2   'Moves two sheets - replace with number of sheets to move.   NumSht = 2   BkName = ActiveWorkbook.Name        For x = 1 To NumSht      'Moves second sheet in source to front of designated workbook.      Workbooks(BkName).Sheets(BegSht).Move _         Before:=Workbooks("Test.xls").Sheets(1)         'In each loop, the next sheet in line becomes indexed as number 2.      'Replace Test.xls with the full name of the target workbook you want.    NextEnd Sub				
Referenties

Microsoft Excel X voor Mac en latere versies

Klik voor meer informatie over de methode Copy, vanuit de Visual Basic EditorMicrosoft Visual Basic Help zoekenop deHelpin het menu typeCopy, methode, klik opZoeken, en klik vervolgens op weer geven"De methode copy".Drie onderwerpen worden weer gegeven. Kies die van toepassing op werk bladen is.

Klik voor meer informatie over de methode Move, vanuit de Visual Basic EditorMicrosoft Visual Basic Help zoekenop deHelpin het menu typeMove, methode, klik opZoeken, en klik vervolgens op weer geven"De methode move."Drie onderwerpen worden weer gegeven. Kies die van toepassing op werk bladen is.

Excel 2001 voor Macintosh

Voor meer informatie over de methode Copy, vanuit de Visual Basic Editor, klikt u op de Office-assistent, typt u:Copy, methode, klik opZoeken, en klik vervolgens op weer geven"Copy, methode (MS Excel VBA)".

Voor meer informatie over de methode Move, vanuit de Visual Basic Editor, klikt u op de Office-assistent, typt u:Move, methode, klik opZoeken, en klik vervolgens op weer geven"Move, methode (MS Excel VBA)".

Voor meer informatie over problemen met het kopiëren van werk bladen in dezelfde werkmap code bevatten, klikt u op het volgende artikelnummer in de Microsoft Knowledge Base:
286266XL2001: Excel loopt vast wanneer u een werk blad in dezelfde werkmap kopiëren

Microsoft Excel 98 Macintosh editie

Voor meer informatie over de methode Copy, vanuit de Visual Basic Editor, klikt u op de Office-assistent, typt u:Copy, methode, klik opZoeken, en klik vervolgens op weer geven"Copy, methode (Excel 97)".

Voor meer informatie over de methode Move, vanuit de Visual Basic Editor, klikt u op deOffice-assistent, typeMove, methode, klik opZoeken, en klik vervolgens op weer geven"Move, methode (Excel 97)".

Code kopiëren voor XL2001KB MAC XL2001 Excel 98 Excel VBA program meer automatisering overbrengen van Visual Basic-macro XLX XL2004

Waarschuwing: dit artikel is automatisch vertaald

Eigenschappen

Artikel-id: 288402 - Laatst bijgewerkt: 10/06/2011 11:52:00 - Revisie: 3.0

Microsoft Excel 2004 for Mac, Microsoft Excel X voor Mac, Microsoft Excel 2001 voor Mac, Microsoft Excel 98 voor Macintosh

  • dftsdahomeportal kbinfo kbmt KB288402 KbMtnl
Feedback