Wie kopiert man Zeilen aus mehreren Arbeitsblättern basierend auf Kriterien in ein neues Blatt?
Angenommen, Sie haben eine Arbeitsmappe mit drei Arbeitsblättern, die alle das gleiche Format wie im nachfolgenden Screenshot aufweisen. Nun möchten Sie alle Zeilen aus diesen Arbeitsblättern, bei denen Spalte C den Text „Abgeschlossen“ enthält, in ein neues Arbeitsblatt kopieren. Wie könnten Sie dieses Problem schnell und einfach lösen, ohne die Zeilen manuell einzeln zu kopieren und einzufügen?
 |  |  |
Zeilen aus mehreren Arbeitsblättern basierend auf Kriterien mit VBA-Code in ein neues Blatt kopieren
Zeilen aus mehreren Arbeitsblättern basierend auf Kriterien mit VBA-Code in ein neues Blatt kopieren
Der folgende VBA-Code kann Ihnen helfen, bestimmte Zeilen aus allen Arbeitsblättern innerhalb der Arbeitsmappe basierend auf einer bestimmten Bedingung in ein neues Arbeitsblatt zu kopieren. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Zeilen aus mehreren Blättern basierend auf Kriterien in ein neues Blatt kopieren
Public Sub CopyRows_ValuesAndNumberFormats()
Dim xWs As Worksheet
Dim xCWs As Worksheet
Dim xRg As Range
Dim xStrName As String
Dim xRStr As String
Dim xRRg As Range
Dim xC As Integer
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Kutools for Excel"
xRStr = "Completed"
Set xCWs = ActiveWorkbook.Worksheets.Item(xStr)
If Not xCWs Is Nothing Then
xCWs.Delete
End If
Set xCWs = ActiveWorkbook.Worksheets.Add
xCWs.Name = xStr
xC = 1
For Each xWs In ActiveWorkbook.Worksheets
If xWs.Name <> xStr Then
Set xRg = xWs.Range("C:C")
Set xRg = Intersect(xRg, xWs.UsedRange)
For Each xRRg In xRg
If xRRg.Value = xRStr Then
xRRg.EntireRow.Copy
xCWs.Cells(xC, 1).PasteSpecial xlPasteValuesAndNumberFormats
xC = xC + 1
End If
Next xRRg
End If
Next xWs
Application.DisplayAlerts = True
End Sub
Hinweis: Im obigen Code:
- Der Text „Abgeschlossen“ in diesem xRStr = "Completed" Skript zeigt die spezifische Bedingung an, auf deren Basis Sie Zeilen kopieren möchten;
- C:C in diesem Set xRg = xWs.Range("C:C") Skript gibt die spezifische Spalte an, in der sich die Bedingung befindet.
3. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und alle Zeilen mit der spezifischen Bedingung wurden in ein neues Arbeitsblatt namens Kutools für Excel innerhalb der aktuellen Arbeitsmappe kopiert und eingefügt. Siehe Screenshot:
Weitere Artikel zum Ziehen oder Kopieren von Daten:
- Daten mit dem erweiterten Filter in ein anderes Arbeitsblatt kopieren in Excel
- Normalerweise können wir schnell die Funktion Erweiterter Filter anwenden, um Daten aus den Rohdaten im selben Arbeitsblatt zu extrahieren. Aber manchmal, wenn Sie versuchen, das gefilterte Ergebnis in ein anderes Arbeitsblatt zu kopieren, erhalten Sie die folgende Warnmeldung. In diesem Fall, wie könnten Sie diese Aufgabe in Excel bewältigen?
- Zeilen basierend auf Spaltenkriterien in ein neues Blatt kopieren in Excel
- Zum Beispiel gibt es eine Fruchtkauf-Tabelle, und nun müssen Sie Datensätze basierend auf einer bestimmten Frucht in ein neues Blatt kopieren. Wie können Sie dies einfach in Excel erledigen? Hier werde ich Ihnen ein paar Methoden vorstellen, um Zeilen basierend auf Spaltenkriterien in ein neues Blatt in Excel zu kopieren.
- Zeilen kopieren, wenn Spalte spezifischen Text/Wert enthält in Excel
- Angenommen, Sie möchten Zellen finden, die einen bestimmten Text oder Wert in einer Spalte enthalten, und dann die gesamte Zeile kopieren, in der sich die gefundene Zelle befindet, wie könnten Sie damit umgehen? Hier werde ich Ihnen ein paar Methoden vorstellen, um herauszufinden, ob eine Spalte einen bestimmten Text oder Wert enthält, und dann die gesamte Zeile in Excel zu kopieren.
Die besten Tools zur Büroproduktivität
Kutools für Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80 %
- Super Formel-Leiste (F) (mehrere Zeilen Text und Formeln einfach bearbeiten); Lese-Layout (einfaches Lesen und Bearbeiten einer großen Anzahl von Zellen); Einfügen in gefilterte Bereiche...
- Zellen/Zeilen/Spalten zusammenführen und Daten behalten; Zellinhalt aufteilen; Doppelte Zeilen zusammenführen und Summe/Durchschnitt berechnen... Doppelte Zellen verhindern; Bereiche vergleichen...
- Doppelte oder eindeutige Zeilen auswählen; Leere Zeilen auswählen (alle Zellen sind leer); Super Suchen und unscharfes Suchen in vielen Arbeitsmappen; Zufällige Auswahl...
- Exakte Kopie mehrerer Zellen ohne Änderung der Formelreferenz; Automatisches Erstellen von Referenzen zu mehreren Blättern; Aufzählungszeichen, Kontrollkästchen und mehr einfügen...
- Formeln, Bereiche, Diagramme und Bilder favorisieren und schnell einfügen; Zellen mit Passwort verschlüsseln; Mailingliste erstellen und E-Mails senden...
- Text extrahieren, Text hinzufügen, Zeichen an einer bestimmten Position entfernen, Leerzeichen entfernen; Druckstatistik erstellen und drucken; Zwischen Zelleninhalt und Kommentaren konvertieren...
- Super Filter (Filter-Schemata speichern und auf andere Blätter anwenden); Erweiterte Sortierung nach Monat/Woche/Tag, Häufigkeit und mehr; Spezialfilter nach Fett, Kursiv...
- Arbeitsmappen und Arbeitsblätter konsolidieren; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten auf mehrere Blätter aufteilen; Stapelkonvertierung von xls, xlsx und PDF...
- Gruppierung von PivotTables nach Kalenderwoche, Wochentag und mehr... Entsperre und gesperrte Zellen durch unterschiedliche Farben anzeigen; Zellen mit Formel/Name hervorheben...
- Aktivieren Sie die Registerkarten-Bearbeitung und den Lese-Modus in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert Hunderte von Mausklicks täglich!
