Wie kopiert und fügt man Zeilen basierend auf einem bestimmten Datum in ein anderes Arbeitsblatt in Excel ein?
Angenommen, Sie haben einen Datenbereich und möchten die gesamte Zeile basierend auf einem bestimmten Datum kopieren und anschließend in ein anderes Arbeitsblatt einfügen – haben Sie gute Ideen, wie sich diese Aufgabe in Excel effizient umsetzen lässt?
Zeilen kopieren und basierend auf dem heutigen Datum in ein anderes Arbeitsblatt einfügen
Zeilen kopieren und in ein anderes Arbeitsblatt einfügen, wenn das Datum größer als heute ist
Zeilen kopieren und basierend auf dem heutigen Datum in ein anderes Arbeitsblatt einfügen
Wenn Sie die Zeilen kopieren möchten, deren Datum heute ist, wenden Sie bitte den folgenden VBA-Code an:
1. Drücken Sie gleichzeitig die Tasten ALT + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Zeilen basierend auf dem heutigen Datum kopieren und einfügen:
Sub CopyRow()
'Updateby Extendoffice
Dim xRgS As Range, xRgD As Range, xCell As Range
Dim I As Long, xCol As Long, J As Long
Dim xVal As Variant
On Error Resume Next
Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xCol = xRgS.Rows.Count
Set xRgS = xRgS(1)
Application.CutCopyMode = False
J = 0
For I = 1 To xCol
Set xCell = xRgS.Offset(I - 1, 0)
xVal = xCell.Value
If TypeName(xVal) = "Date" And (xVal <> "") And (xVal = Date) Then
xCell.EntireRow.Copy xRgD.Offset(J, 0)
J = J + 1
End If
Next
Application.CutCopyMode = True
End Sub
3. Drücken Sie nach dem Einfügen des obigen Codes bitte die F5-Taste, um ihn auszuführen. Es erscheint ein Eingabefeld, das Sie auffordert, die Datums-Spalte auszuwählen, auf deren Basis die Zeilen kopiert werden sollen; siehe Screenshot:
4. Klicken Sie anschließend auf die Schaltfläche OK. Wählen Sie danach in einem weiteren Eingabefeld eine Zelle in einem anderen Arbeitsblatt aus, in der das Ergebnis angezeigt werden soll – siehe Screenshot:
5. Klicken Sie anschließend auf die Schaltfläche OK. Daraufhin werden die Zeilen, deren Datum heute ist, sofort in das neue Arbeitsblatt eingefügt – siehe Screenshot:
Zeilen kopieren und in ein anderes Arbeitsblatt einfügen, wenn das Datum größer als heute ist
Um die Zeilen zu kopieren und in ein anderes Arbeitsblatt einzufügen, deren Datum größer oder gleich dem heutigen Datum ist – beispielsweise wenn das Datum gleich oder größer als das von vor fünf Tagen ist –, führen Sie die Kopier- und Einfügeaktion durch.
Der folgende VBA-Code könnte Ihnen dabei helfen:
1. Halten Sie die ALT + F11-Tasten gedrückt, um das Fenster Microsoft Visual Basic for Applicationszu öffnen.
2. Klicken Sie auf Einfügen>Modul, und fügen Sie den folgenden Code im Modulfenster ein.
VBA-Code: Zeilen kopieren und einfügen, wenn das Datum größer als heute ist:
Sub CopyRow()
'Updateby Extentoffice
Dim xRgS As Range, xRgD As Range, xCell As Range
Dim I As Long, xCol As Long, J As Long
Dim xVal As Variant
On Error Resume Next
Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xCol = xRgS.Rows.Count
Set xRgS = xRgS(1)
Application.CutCopyMode = False
J = 0
For I = 1 To xCol
Set xCell = xRgS.Offset(I - 1, 0)
xVal = xCell.Value
If TypeName(xVal) = "Date" And (xVal <> "") And (xVal >= Date And (xVal < Date + 5)) Then
xCell.EntireRow.Copy xRgD.Offset(J, 0)
J = J + 1
End If
Next
Application.CutCopyMode = True
End Sub
Hinweis: Im obigen Code können Sie die Kriterien an Ihre Anforderungen anpassen – beispielsweise auf „kleiner als heute“ oder eine andere Anzahl von Tagen. Nehmen Sie die entsprechenden Änderungen in der Codezeile If TypeName(xVal) = „Date" And (xVal "") And (xVal >= Date And (xVal < Date + 5)) Then vor.
3. Drücken Sie anschließend die F5-Taste, um den Code auszuführen. Wählen Sie im Eingabefeld die gewünschte Datenspalte aus – siehe Screenshot:
4. Klicken Sie dann auf die Schaltfläche OK. Wählen Sie in einem weiteren Eingabefeld eine Zelle in einem anderen Arbeitsblatt aus, in der das Ergebnis ausgegeben werden soll; siehe Screenshot:
5. Klicken Sie auf die Schaltfläche OK. Die Zeilen, deren Datum gleich oder größer als das von vor fünf Tagen ist, wurden nun in das neue Arbeitsblatt kopiert und eingefügt – wie im folgenden Screenshot gezeigt:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins