Sie sind zurzeit offline. Es wird auf die erneute Herstellung einer Internetverbindung gewartet.

Kopieren oder verschieben Arbeitsblätter mit VBA-Code in Excel für Mac

Wichtig: Dieser Artikel wurde maschinell übersetzt und wird dann möglicherweise mithilfe des Community Translation Framework (CTF) von Mitgliedern unserer Microsoft Community nachbearbeitet. Weitere Informationen zu CTF finden Sie unter http://support.microsoft.com/gp/machine-translation-corrections/de.

Den englischen Originalartikel können Sie über folgenden Link abrufen: 288402
Zusammenfassung
Sie können Microsoft Visual Basic for Applications (VBA)-Code Blätter in einer Arbeitsmappe oder zwischen Arbeitsmappen zu verschieben oder zu kopieren. Dies ist besonders nützlich, wenn Sie Verschieben oder Kopieren sehr vieler Arbeitsblätter möchten oder wenn Sie mehrere Kopien eines Arbeitsblattes vornehmen möchten.

Dieser Artikel enthält Beispiele für VBA-Code für diese Aufgaben.
Weitere Informationen
Die Programmierbeispiele von Microsoft dienen lediglich der Veranschaulichung und enthalten weder eine ausdrückliche noch implizite Gewährleistung. Dies schließt, jedoch nicht beschränkt darauf, enthaltene Garantien der allgemeinen Gebrauchstauglichkeit oder der Eignung für einen bestimmten Zweck ein. In diesem Artikel wird davon ausgegangen, dass Sie mit der Programmiersprache und den Werkzeugen, die zum Erstellen und Debuggen von Prozeduren verwendet werden, vertraut sind. Microsoft-Supporttechniker helfen bei der Erläuterung der Funktionsweise bestimmter Prozeduren, jedoch werden sie diese Beispiele nicht um zusätzliche Funktionalität erweitern oder Prozeduren entwickeln, die Ihre spezifischen Anforderungen erfüllen. Hinweis In Microsoft Excel 2001 für Macintosh, ohne Microsoft Office 2001 für Mac Service Release 1 müssen Sie den Code in einer anderen Arbeitsmappe der kopierten Blätter platzieren.

Excel 2001 für Macintosh hatte ein Problem bei der VBA-Code, der die Blätter in der gleichen Arbeitsmappe wie die Blätter kopiert wird.

Dieses Problem wurde mit Service Release 1 für Microsoft Office 2001 für Mac behoben. Für Weitere Informationen das Problem in Excel 2001 für Mac, klicken Sie auf die folgende Artikelnummer, um den Artikel in der Microsoft Knowledge Base anzuzeigen:
286266 Excel hängt, wenn Sie versuchen, das Arbeitsblatt in derselben Arbeitsmappe kopieren
:

Beispielcode zum Kopieren von Arbeitsblättern

Ein bestimmtes Arbeitsblatt der aktiven Arbeitsmappe kopieren

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

Kopieren Sie mehrmals ein bestimmtes Arbeitsblatt in der aktiven Arbeitsmappe.

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				

Kopiert das aktive Arbeitsblatt mehrere Mal.

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				

Kopieren Sie einmal alle Arbeitsblätter in einer Arbeitsmappe

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				

Beispielcode zum Verschieben von Arbeitsblättern

Das aktive Blatt an eine neue Position in der Arbeitsmappe verschieben

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

Aktives Blatt in eine andere Arbeitsmappe verschieben

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				

Mehrere Blätter in ActiveWorkbook in eine andere Arbeitsmappe zu verschieben

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				
Informationsquellen

Microsoft Excel X für Mac und höheren Versionen

Weitere Informationen über die Copy-Methode aus dem Visual Basic-Editor klicken Sie auf Microsoft Visual Basic-Hilfe im Hilfemenü , Typ Copy-Methode, klicken Sie auf Suchen, und klicken Sie zum Anzeigen von "Copy-Methode". Es werden drei Themen aufgeführt. Wählen Sie die, die auf Arbeitsblätter angewendet wird.

Weitere Informationen über die Move-Methode von Visual Basic-Editor klicken Sie auf Microsoft Visual Basic-Hilfe im Hilfemenü , Typ Move-Methode, klicken Sie auf Suchen, und klicken Sie zum Anzeigen von "Move-Methode". Es werden drei Themen aufgeführt. Wählen Sie die, die auf Arbeitsblätter angewendet wird.

Excel 2001 für Macintosh

Geben Sie für Weitere Informationen über die Copy-Methode aus dem Visual Basic-Editor klicken Sie auf der Office-Assistent, Copy-Methode, klicken Sie auf Suchen, und klicken Sie zum Anzeigen von "Copy-Methode (MS Excel VBA)".

Geben Sie für Weitere Informationen über die Move-Methode von Visual Basic-Editor, klicken Sie auf der Office-Assistent, Move-Methode, klicken Sie auf Suchen, und klicken Sie zum Anzeigen von "Move-Methode (MS Excel VBA)".

Weitere Informationen über Probleme beim Kopieren von Arbeitsblättern, die Code in derselben Arbeitsmappe enthalten, klicken Sie auf die nachstehende Artikelnummer klicken, um den Artikel der Microsoft Knowledge Base anzuzeigen:
286266 XL2001: Excel hängt, wenn Sie versuchen, das Arbeitsblatt in derselben Arbeitsmappe kopieren

Microsoft Excel 98 Macintosh Edition

Geben Sie für Weitere Informationen über die Copy-Methode aus dem Visual Basic-Editor klicken Sie auf der Office-Assistent, Copy-Methode, klicken Sie auf Suchen, und klicken Sie zum Anzeigen von "Copy-Methode (Excel 97)".

Weitere Informationen über die Move-Methode aus dem Visual Basic-Editor klicken Sie auf Assistent Typ befaßte Move-Methode, klicken Sie auf Suchen, und klicken Sie zum Anzeigen von "Move-Methode (Excel 97)".

XL2001KB MAC XL2001 XL98 Excel Code kopieren VBA-Programmierung Automatisierung Visual Basic-Makro Übertragung XLX XL2004

Warnung: Dieser Artikel wurde automatisch übersetzt.

Eigenschaften

Artikelnummer: 288402 – Letzte Überarbeitung: 02/06/2014 09:32:00 – Revision: 8.0

Microsoft Excel 2004 for Mac, Microsoft Excel X für Macintosh, Microsoft Excel 2001 für Mac, Microsoft Excel 98 für Macintosh

  • dftsdahomeportal kbinfo kbmt KB288402 KbMtde
Feedback
>