Wie erstelle ich eine Befehlsschaltfläche zum Kopieren und Einfügen von Daten in Excel?
Angenommen, Sie müssen nach dem Ändern der Daten häufig eine Reihe von Zellen an einen anderen Ort kopieren, ist das manuelle Kopieren und Einfügen aufwändig und zeitaufwändig. Wie kann diese Copy & Paste-Angelegenheit automatisch ausgeführt werden? In diesem Artikel erfahren Sie, wie Sie mit einer Befehlsschaltfläche Daten mit nur einem Klick kopieren und einfügen.
Erstellen Sie eine Befehlsschaltfläche zum Kopieren und Einfügen von Daten mit VBA-Code
Erstellen Sie eine Befehlsschaltfläche zum Kopieren und Einfügen von Daten mit VBA-Code
Gehen Sie wie folgt vor, um Daten automatisch zu kopieren und einzufügen, wenn Sie auf eine Befehlsschaltfläche klicken.
1. Fügen Sie eine Befehlsschaltfläche ein, indem Sie auf klicken Entwickler:in / Unternehmen > Insert > Befehlsschaltfläche (ActiveX Control). Siehe Screenshot:
2. Zeichnen Sie eine Befehlsschaltfläche in Ihr Arbeitsblatt und klicken Sie mit der rechten Maustaste darauf. Wählen Code anzeigen in dem Kontextmenü.
3. Beim Auftauchen Microsoft Visual Basic für Applikationen Fenster ersetzen Sie bitte den Originalcode im Codefenster durch den folgenden VBA-Code.
VBA-Code: Verwenden Sie die Befehlsschaltfläche, um Daten in Excel zu kopieren und einzufügen
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim xSheet As Worksheet
Set xSheet = ActiveSheet
If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
xSheet.Range("A1:C17 ").Copy
xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = True
End Sub
Note: Im Code ist CommandButton1 der Name Ihrer eingefügten Befehlsschaltfläche. A1: C17 ist der Bereich, den Sie kopieren müssen, und J1: L17 ist der Zielbereich zum Einfügen von Daten. Bitte ändern Sie sie nach Bedarf.
4. Drücken Sie Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster. Deaktivieren Sie den Entwurfsmodus auf der Registerkarte Entwickler.
5. Klicken Sie nun auf die Befehlsschaltfläche. Alle Daten im Bereich A1: C17 werden kopiert und ohne die Zellenformatierung in den Bereich J1: L17 eingefügt.
In Verbindung stehende Artikel:
- Wie kann ich eine aktive Arbeitsmappe ohne Aufforderung über eine Befehlsschaltfläche in Excel speichern und schließen?
- Wie schwebe ich immer eine Befehlsschaltfläche auf einem Arbeitsblatt in Excel?
- Wie aktualisiere oder füge ich (aktuelles) Datum und Uhrzeit über eine Befehlsschaltfläche in Excel ein?
- Wie verwende ich eine Befehlsschaltfläche, um einen bestimmten Zellenwert in Excel zu ändern?
- Wie verwende ich die Befehlsschaltfläche, um ein aktives Arbeitsblatt als PDF-Datei in Excel zu speichern?
- Wie füge ich automatisch eine leere neue Zeile über die Befehlsschaltfläche in Excel ein?
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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 jeden Tag Hunderte von Mausklicks für Sie!