Wie können Sie Daten in die nächste leere Zeile eines anderen Arbeitsblatts in Excel kopieren?
Angenommen, Sie möchten bestimmte Daten aus dem Bereich A1:E1 von Blatt1 kopieren und sie schnell in die nächste leere Zeile von Blatt2 derselben Arbeitsmappe einfügen – so wie im folgenden Screenshot gezeigt. Wie können Sie das einfach erreichen? Dieser Artikel stellt Ihnen eine praktische VBA-Methode vor.
Daten mithilfe von VBA-Code in die nächste leere Zeile eines anderen Arbeitsblatts kopieren
Daten mithilfe von VBA-Code in die nächste leere Zeile eines anderen Arbeitsblatts kopieren
Führen Sie den folgenden VBA-Code aus, um Daten aus einem bestimmten Arbeitsblatt zu kopieren und automatisch in die nächste leere Zeile eines anderen Arbeitsblatts einzufügen.
1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie anschließend den folgenden VBA-Code, und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Daten in die nächste leere Zeile eines anderen Arbeitsblatts kopieren
Private Sub CommandButton1_Click()
Dim xScreenUpdating As Boolean
Dim xPasteSht As Worksheet
Dim xRg As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xPasteSht = Worksheets("Sheet2")
xScreenUpdating = Application.ScreenUpdating
Application.ScreenUpdating = False
xRg.Copy
xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = xScreenUpdating
End SubHinweis: Im Code ist „Blatt2“ das Zielarbeitsblatt für die kopierten Daten. Passen Sie diesen Namen ganz einfach an Ihre Anforderungen an.
3. Drücken Sie die Taste F5, um den Code auszuführen. Geben Sie im erscheinenden Dialogfeld Kutools für Excel den Bereich an, den Sie in die nächste leere Zeile von Blatt2 kopieren möchten, und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:
Die kopierten Daten aus Blatt1 werden dann sofort in die nächste leere Zeile von Blatt2 eingefügt – wie im folgenden Screenshot veranschaulicht.
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