Note: The other languages of the website are Google-translated. Back to English
Einloggen  \/ 
x
or
x
Registrieren  \/ 
x

or

Wie kopiere ich mehrere Auswahlen oder Bereiche in Excel?

Sie haben beispielsweise ein großes Arbeitsblatt und möchten jetzt nur einige ausgewählte Bereiche kopieren und auf andere Arbeitsblätter verteilen. Wenn Sie jedoch mehrere Bereiche auswählen und auf Kopieren klicken, wird ein Dialogfeld angezeigt, in dem Sie daran erinnert werden, dass dieser Befehl nicht für mehrere Bereiche verwendet werden kann. Wie kopieren Sie in diesem Zustand schnell mehrere ausgewählte Bereiche? Hier sind einige Tricks, mit denen Sie diese Aufgabe lösen können.


Kopieren Sie mehrere ausgewählte Bereiche mit der Zwischenablage

Mit Hilfe von Zwischenablagekönnen Sie alle ausgewählten Bereiche gleichzeitig in einen anderen Bereich oder ein anderes Arbeitsblatt einfügen. Bitte gehen Sie wie folgt vor:

1. Klicken Sie Home > doc kopiere mehrere Bereiche 09 in Zwischenablage Gruppe, um die anzuzeigen Zwischenablage Brot.. Siehe Screenshot:

2. Kopieren Sie dann die ausgewählten Bereiche, die Sie benötigen, nacheinander. Gleichzeitig wurden die kopierten Bereiche in der angezeigt Zwischenablage Brot. siehe Screenshot oben:

3. Wählen Sie die erste Zelle des Zielbereichs aus, in den Sie alle kopierten Bereiche einfügen möchten, und klicken Sie auf Alle einfügen Knopf im Zwischenablage Feld.

Anschließend wurden alle kopierten Bereiche in den angegebenen Zielbereich eingefügt.

Kombinieren Sie einfach mehrere Auswahlen aus vielen Arbeitsblättern / Arbeitsmappen zu einem einzigen Arbeitsblatt / Arbeitsmappe

Es kann mühsam sein, Dutzende von Blättern aus verschiedenen Arbeitsmappen zu einem Blatt zu kombinieren. Aber mit Kutools für Excel Kombinieren (Arbeitsblätter und Arbeitsmappen) Dienstprogramm, können Sie es mit nur wenigen Klicks erledigen! Kostenlose 30-Tage-Testversion mit vollem Funktionsumfang!
Anzeigen kombinieren Blätter Bücher 1

Kutools for Excel - Enthält mehr als 300 praktische Tools für Excel. Kostenlose 30-Tage-Testversion mit vollem Funktionsumfang, keine Kreditkarte erforderlich! Hol es dir jetzt

Kopieren Sie mehrere ausgewählte Bereiche mit VBA-Code

Mit VBA-Code können Sie auch mehrere ausgewählte Bereiche kopieren und in ein anderes Arbeitsblatt einfügen.

1. Halten der Ctrl Geben Sie mehrere nicht benachbarte Bereiche ein und wählen Sie sie aus, die Sie verwenden möchten.

2. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Anwendungen Klicken Sie im Fenster Insert > Modulund geben Sie den folgenden Code in das Modul ein:

Option Explicit Sub CopyMultipleSelection () Dim SelAreas () As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer, i As Integer Dim TopRow As Long, LeftCol As Integer Dim RowOffset As Long, ColOffset As Integer Dim NonEmptyCellCount As Integer 'Exit Wenn kein Bereich ausgewählt ist Wenn TypeName (Auswahl) <> "Bereich", dann MsgBox "Wählen Sie den zu kopierenden Bereich aus. Eine Mehrfachauswahl ist zulässig." Unterende beenden Wenn 'Bereiche als separate Bereichsobjekte speichern NumAreas = Selection.Areas.Count ReDim SelAreas (1 bis NumAreas) Für i = 1 bis NumAreas Set SelAreas (i) = Selection.Areas (i) Next' Bestimmen Sie oben links Zelle in der Mehrfachauswahl TopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count For i = 1 To NumAreas If SelAreas (i) .Row <TopRow Then TopRow = SelAreas (i) .Row If SelAreas (i) .Column <LeftCol Then LeftCol = SelAreas (i) .Column Next Set UpperLeft = Cells (TopRow, LeftCol) 'Paste-Adresse bei Fehler abrufen Resume Next Set PasteRange = Application.InputBox _ (Prompt: = "Geben Sie die obere linke Zelle für das Einfügen an Bereich: ", _ Titel: =" Mehrfachauswahl kopieren ", _ Typ: = 8) Bei Fehler Gehe zu 0 'Beenden, wenn abgebrochen Wenn Typname (PasteRange) <>" Bereich ", dann Sub beenden' Stellen Sie sicher, dass nur die obere linke Zelle vorhanden ist used Set PasteRange = PasteRange.Range ("A1") 'Einfügebereich auf vorhandene Daten prüfen NonEmptyCellCount = 0 For i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel Bereiche (i) .Column - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA (Bereich (PasteRange.Offset (RowOffset, ColOffset), _ PasteRange.Offset (RowOffset + SelAreas (i) .Rows.Count - 1, _ ColOffset + (i) .Columns.Count - 1))) Weiter i 'Wenn der Einfügebereich nicht leer ist, warnen Sie den Benutzer. Wenn NonEmptyCellCount <> 0 Dann _ Wenn MsgBox ("Vorhandene Daten überschreiben?", vbQuestion + vbYesNo, _ "Mehrfachauswahl kopieren ") <> vbYes Beenden Sie dann Sub 'Kopieren Sie jeden Bereich und fügen Sie ihn ein. For i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = SelAreas (i) .Column - LeftCol SelAreas (i) .Copy PasteRange.Offset ( RowOffset, ColOffset) Weiter i End Sub

3. Klicken Sie dann auf Run Schaltfläche, um den Code auszuführen.

4. Und jetzt geben Sie bitte eine Zelle an, um die Bereiche in die Öffnung einzufügen Mehrfachauswahl kopieren Klicken Sie auf das Dialogfeld OK Taste. Siehe Screenshot:


Kopieren Sie schnell mehrere ausgewählte Bereiche aus einem Arbeitsblatt

Der Mehrere Bereiche kopieren Nutzen von Kutools for Excel kann Ihnen helfen, schnell mehrere Bereiche aus dem aktiven Arbeitsblatt zu kopieren. Bitte gehen Sie wie folgt vor:

Kutools for Excel - Enthält mehr als 300 praktische Tools für Excel. Kostenlose 30-Tage-Testversion mit vollem Funktionsumfang, keine Kreditkarte erforderlich! Hol es dir jetzt

1. Wählen Sie die Bereiche, die Sie verwenden möchten, einzeln aus, ohne die Taste gedrückt zu halten Ctrl Taste und klicken Sie dann auf Kutools > Bereiche kopieren. Siehe Screenshot:

2. In dem Mehrere Bereiche kopieren Dialogfeld überprüfen Alles Option von Inhalte einfügen Abschnitt und klicken Sie auf Ok button. Siehe Screenshot oben:

Hinweis: Wenn Sie die Zeilenhöhe und Spaltenbreite als ursprüngliche Bereiche beibehalten möchten, überprüfen Sie dies bitte Einschließlich Reihenhöhe Option und Einschließlich Spaltenbreite Option im Dialogfeld Mehrere Bereiche kopieren.

3. Geben Sie im folgenden Eingabeaufforderungsfeld eine Zelle zum Einfügen der Bereiche an und klicken Sie auf OK .

Und jetzt werden alle ausgewählten Bereiche mit der gleichen Zeilenhöhe und Spaltenbreite wie die ursprüngliche Auswahl in die angegebene Zelle eingefügt.

Klicken Sie hier, um weitere Informationen zum Dienstprogramm "Mehrere Bereiche kopieren" zu erhalten       

Kutools for Excel - Enthält mehr als 300 praktische Tools für Excel. Kostenlose 30-Tage-Testversion mit vollem Funktionsumfang, keine Kreditkarte erforderlich! Hol es dir jetzt


Kopieren Sie mehrere Bereiche aus vielen Arbeitsblättern / Arbeitsmappen

Kutools für Excel bietet eine weitere Arbeitsblätter kombinieren Dienstprogramm zum einfachen Kopieren mehrerer Bereiche aus vielen Arbeitsblättern oder Arbeitsmappen in Excel. Bitte gehen Sie wie folgt vor:

Kutools for Excel - Enthält mehr als 300 praktische Tools für Excel. Kostenlose 30-Tage-Testversion mit vollem Funktionsumfang, keine Kreditkarte erforderlich! Hol es dir jetzt

1 Klicken Kutools Plus > Kombinieren.

2. Aktivieren Sie im sich öffnenden Dialogfeld Arbeitsblätter kombinieren - Schritt 1 von 3 das Kontrollkästchen Kombinieren Sie mehrere Arbeitsblätter aus der Arbeitsmappe zu einem Arbeitsblatt Option und klicken Sie auf Weiter .

3. Gehen Sie im Dialogfeld Arbeitsblätter kombinieren - Schritt 2 von 3 wie folgt vor:

(1) Wählen Sie die Arbeitsmappe in der Arbeitsmappenliste Klicken Sie dann auf Kategorie wählen Schaltfläche hinter jedem Arbeitsblatt, um den Bereich von jedem Arbeitsblatt anzugeben;
(2) Klicken Sie auf Verwenden Sie Klicken Sie auf die Schaltfläche, um weitere Arbeitsmappen hinzuzufügen, aus denen Sie Bereiche kopieren möchten, und wiederholen Sie den Vorgang oben (1), um Bereiche in der hinzugefügten Arbeitsmappe anzugeben.
(3) Klicken Sie auf Ende .

Kutools for Excel - Enthält mehr als 300 praktische Tools für Excel. Kostenlose 30-Tage-Testversion mit vollem Funktionsumfang, keine Kreditkarte erforderlich! Hol es dir jetzt

4. Dann erscheint ein Dialogfeld von Kutools for Excel und fordert Sie auf, das Kombinationsszenario zu speichern. Bitte klicken Sie auf Ja Knopf oder Nein Taste nach Bedarf.

Bisher wurden alle angegebenen Bereiche aus mehreren Arbeitsblättern oder Arbeitsmappen kopiert und in eine neue Arbeitsmappe eingefügt.


Demo: Kopieren Sie mehrere ausgewählte Bereiche aus einem Arbeitsblatt

Demo: Kopieren Sie mehrere ausgewählte Bereiche aus vielen Arbeitsmappen / Arbeitsblättern


Kutools for Excel Enthält mehr als 300 praktische Tools für Excel, die Sie innerhalb von 30 Tagen kostenlos testen können. Jetzt herunterladen und kostenlos testen!

Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50% und reduziert täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    peter.habershon@eis2win.co.uk · 2 years ago
    Hi there,
    Great code but wondered how I can paste values rather than just paste?
    Thanks :)
  • To post as a guest, your comment is unpublished.
    Peter Habershon · 2 years ago
    Hi there,
    Great post and the VBA code works perfectly. Is it possible to change the code to paste special > values? If so, how?
    Thanks!
  • To post as a guest, your comment is unpublished.
    jacobkring@hotmail.com · 3 years ago
    Hi. Nice code, works great. Is it possible to modify the code in a way such that it is possible to insert/paste the market row/ranges multiple times instead of just one time?
    • To post as a guest, your comment is unpublished.
      kelly.extendoffice@gmail.com · 3 years ago
      Hi Jacob,
      Maybe this Insert Title Rows feature of Kutools for Excel can solve your problem.
      https://www.extendoffice.com/product/kutools-for-excel/excel-insert-title-rows.html
  • To post as a guest, your comment is unpublished.
    kmmanahan · 3 years ago
    Hi! How do I use the same VBA Code above but instead of simply pasting, I would like it to paste special for just the values. The table I am putting the values (constants) into is already formatted and with totals (formulas)
    Thanks so much in advance!
    • To post as a guest, your comment is unpublished.
      · 3 years ago
      Hi Katrina Manahan,

      Please open the Microsoft Visual Basic for applications window, and create a new Module, just press CTRL + V to paste the VBA code directly. The sequence numbers before code won't be pasted.
  • To post as a guest, your comment is unpublished.
    Steve O · 5 years ago
    Thanks for the code, works perfectly. This odd lack of function within Excel has stumped me many times in the past. It's normally quicker in the end to work around it, but in this case I have 4000 individually colour-coded cells so any work-around would have taken a long time, so I'm very grateful.
    Steve
  • To post as a guest, your comment is unpublished.
    David Hedin · 5 years ago
    Hi,
    Is it possible to adjust the code so that the copied cells can be pasted in another sheet? Now I get the error message "400" when I attempt this. I use Office 2010.

    Also, is it possible to copy so that empty lines are deleted? I have a big document and I copy some cells with hundreds of non-copied rows between them. This makes for a rather bulky output.
  • To post as a guest, your comment is unpublished.
    Yunivor · 5 years ago
    I found that if you have the Clipboard task plane open you can copy multiple rows simply using ctrl+C and paste them in order with crtl+V using Excel 2007.
  • To post as a guest, your comment is unpublished.
    M · 6 years ago
    Thank you SOOOOOO much - what a great site
  • To post as a guest, your comment is unpublished.
    Lyn Mc · 6 years ago
    Found above explanation of options to copy multiple ranges very helpful - thanks! I used the 'clipboard' option to copy multiple rows. Had to select each group of consecutive rows and copy it, move on and select next row or group of consecutive rows and copy it, etc.. But after this its easy, go to where you want to paste them, eg a new sheet, and click 'Paste all' from the Clipboard and all the rows are copied to there with out any gaps! Exactly what I wanted - thanks again!
  • To post as a guest, your comment is unpublished.
    Abani Pattanayak · 6 years ago
    I want to select the rows like 1, 5,6,10. so how can i copy these rows ???
    • To post as a guest, your comment is unpublished.
      David Hedin · 5 years ago
      In this case you can just select the rows and copy them as usual.
      • To post as a guest, your comment is unpublished.
        K Raj · 4 years ago
        How can I copy cell a1, e5, g2, and so on.... (more than 1000 cells in same column) and paste them into b1, f5, h2 (right into the next column in same row.)