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

SPRACHE AUSWÄHLEN SPRACHE AUSWÄHLEN
Artikel-ID: 288402 - Produkte anzeigen, auf die sich dieser Artikel bezieht
Alles erweitern | Alles schließen

Auf dieser Seite

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")
    Next
End 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.
   Next
End 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.
   Next
End 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.
    Next
End 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)".

Eigenschaften

Artikel-ID: 288402 - Geändert am: Donnerstag, 6. Februar 2014 - Version: 8.0
Die Informationen in diesem Artikel beziehen sich auf:
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X für Macintosh
  • Microsoft Excel 2001 für Mac
  • Microsoft Excel 98 für Macintosh
Keywords: 
dftsdahomeportal kbinfo kbmt KB288402 KbMtde
Maschinell übersetzter Artikel
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
Microsoft stellt Ihnen die in der Knowledge Base angebotenen Artikel und Informationen als Service-Leistung zur Verfügung. Microsoft übernimmt keinerlei Gewährleistung dafür, dass die angebotenen Artikel und Informationen auch in Ihrer Einsatzumgebung die erwünschten Ergebnisse erzielen. Die Entscheidung darüber, ob und in welcher Form Sie die angebotenen Artikel und Informationen nutzen, liegt daher allein bei Ihnen. Mit Ausnahme der gesetzlichen Haftung für Vorsatz ist jede Haftung von Microsoft im Zusammenhang mit Ihrer Nutzung dieser Artikel oder Informationen ausgeschlossen.

Ihr Feedback an uns

 

Kontaktieren Sie uns, um weitere Hilfe zu erhalten

Kontaktieren Sie uns, um weitere Hilfe zu erhalten
Wenden Sie sich an den Answer Desk, um professionelle Hilfe zu erhalten.