Wie erstellt man eine Befehlsschaltfläche zum Kopieren und Einfügen von Daten in Excel?
Angenommen, Sie müssen häufig einen Zellbereich an eine andere Stelle kopieren, nachdem Sie die Daten geändert haben. Das manuelle Kopieren und Einfügen wäre dann mühsam und zeitaufwendig. Wie lässt sich dieser Vorgang automatisieren? In diesem Artikel wird gezeigt, wie Sie mit nur einem Klick eine Befehlsschaltfläche verwenden, um Daten zu kopieren und einzufügen.
Erstellen einer Befehlsschaltfläche zum Kopieren und Einfügen von Daten mithilfe von VBA-Code
Erstellen einer Befehlsschaltfläche zum Kopieren und Einfügen von Daten mithilfe von VBA-Code
Klicken Sie auf eine Befehlsschaltfläche, um Daten automatisch zu kopieren und einzufügen – so geht’s:
1. Fügen Sie eine Befehlsschaltfläche ein, indem Sie auf Entwickler > Einfügen > Befehlsschaltfläche (ActiveX-Steuerelement) klicken. Siehe Screenshot:
2. Zeichnen Sie eine Befehlsschaltfläche in Ihr Arbeitsblatt und klicken Sie sie mit der rechten Maustaste an. Wählen Sie im Kontextmenü Code anzeigen.
3. Ersetzen Sie im erscheinenden Fenster Microsoft Visual Basic für Applikationen den ursprünglichen Code im Codefenster durch den folgenden VBA-Code.
VBA-Code: Verwenden einer Befehlsschaltfläche zum Kopieren und Einfügen von Daten in Excel
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 SubHinweis: Im Code ist „CommandButton1“ der Name Ihrer eingefügten Befehlsschaltfläche. A1:C17 ist der Bereich, den Sie kopieren möchten, und J1:L17 der Zielbereich, in den die Daten eingefügt werden. Passen Sie diese Angaben entsprechend Ihren Anforderungen an.
4. Drücken Sie die Tastenkombination Alt+Q, um das Fenster Microsoft Visual Basic für Applikationen zu schließen. Deaktivieren Sie anschließend den Entwurfsmodus unter der Registerkarte „Entwickler“.
5. Klicken Sie nun auf die Befehlsschaltfläche – alle Daten aus dem Bereich A1:C17 werden ohne Zellenformatierung in den Bereich J1:L17 kopiert und eingefügt.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Verwandte Artikel:
- Wie führt man das Speichern und Schließen der aktuellen Arbeitsmappe ohne Aufforderung mithilfe einer Befehlsschaltfläche in Excel aus?
- Wie kann eine Befehlsschaltfläche auf einem Excel-Arbeitsblatt stets schwebend positioniert werden?
- Wie kann man mithilfe einer Befehlsschaltfläche das aktuelle Datum und die Uhrzeit in Excel einfügen oder aktualisieren?
- Wie verwendet man eine Befehlsschaltfläche, um den Wert einer bestimmten Zelle in Excel zu ändern?
- Wie speichert man das aktive Arbeitsblatt mithilfe einer Befehlsschaltfläche als PDF-Datei in Excel?
- Wie fügt man mithilfe einer Befehlsschaltfläche automatisch eine neue leere Zeile 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 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