Wie kopiere ich den Kombinationsfeldwert in eine aktive Zelle in Excel?
In einigen Fällen müssen Sie möglicherweise den ausgewählten Wert aus einem Kombinationsfeld in die aktive Zelle kopieren. Normalerweise müssen Sie in das Kombinationsfeld gelangen, es kopieren und manuell in die aktive Zelle einfügen. In diesem Artikel wird eine praktische Methode zum automatischen Aktualisieren der aktiven Zelle bei der Auswahl von Werten in einem Kombinationsfeld vorgestellt.
Kopieren Sie den Kombinationsfeldwert mit VBA-Code in die aktive Zelle
VBA 1: Kopieren Sie den Kombinationsfeldwert über den Befehl in die aktive Zelle
VBA 2: Kombinationsfeldwert automatisch in aktive Zelle kopieren
Kopieren Sie den Kombinationsfeldwert mit VBA-Code in die aktive Zelle
Mit den folgenden VBA-Codes können Sie den Kombinationsfeldwert automatisch in die aktive Zelle kopieren. Bitte gehen Sie wie folgt vor.
VBA 1: Kopieren Sie den Kombinationsfeldwert über die Befehlsschaltfläche in die aktive Zelle
1. Zunächst müssen Sie eine Befehlsschaltfläche in das Arbeitsblatt einfügen (siehe Abbildung unten).
2. Klicken Sie mit der rechten Maustaste auf die Befehlsschaltfläche, und klicken Sie dann auf Code anzeigen aus dem Kontextmenü. Siehe Screenshot:
3. Beim Auftauchen Microsoft Visual Basic für Applikationen Ersetzen Sie im Originalfenster den Code im Codefenster durch den folgenden VBA-Code.
VBA-Code: Kopierfeldwert in aktive Zelle kopieren
Private Sub CommandButton1_Click()
ActiveCell.Value = Me.ComboBox1.Text
End Sub
Note: Im Code ist CommandButton1 der Name der eingefügten Befehlsschaltfläche und ComboBox1 der Name des Kombinationsfelds, aus dem Sie den Wert kopieren. Bitte ändern Sie sie nach Bedarf.
4. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
Wenn Sie von nun an den Kombinationsfeldwert in die aktive Zelle kopieren müssen, wählen Sie einfach die Zelle aus und klicken Sie auf die Befehlsschaltfläche, um dies zu erledigen.
VBA 2: Kombinationsfeldwert automatisch in aktive Zelle kopieren
Mit dem folgenden VBA-Code können Sie die aktive Zelle automatisch aktualisieren, während Sie Werte in einem Kombinationsfeld auswählen. Sie können wie folgt vorgehen.
1. Stellen Sie sicher, dass Entwurfsmodus ist unter dem eingeschaltet Entwickler:in / Unternehmen Tab.
2. Klicken Sie mit der rechten Maustaste auf das Kombinationsfeld, aus dem Sie den Wert kopieren möchten, und klicken Sie dann auf Code anzeigen aus dem Kontextmenü. Siehe Screenshot:
3. Beim Auftauchen Microsoft Visual Basic für Applikationen Fenster, ersetzen Sie den Originalcode im Code Fenster mit dem folgenden VBA-Code.
VBA-Code: Kopierfeldwert in aktive Zelle kopieren
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End Sub
Note: Im Code ist ComboBox1 der Name des Kombinationsfelds, aus dem Sie den Wert kopieren.
4. Drücken Sie die Taste Andere + Q Tasten, um das Fenster Microsoft Visual Basic für Applikationen zu schließen und den Entwurfsmodus auf der Registerkarte Entwickler zu deaktivieren.
Wenn Sie nun einen Wert aus dem Kombinationsfeld auswählen, wird dieser ausgewählte Datensatz automatisch in der aktiven Zelle angezeigt.
In Verbindung stehende Artikel:
- Wie zeige ich das Datumsformat in der Kombinationsfeldausgabe in Excel an?
- Wie kann ich eine Befehlsschaltfläche basierend auf dem angegebenen Zellenwert in Excel ein- oder ausblenden?
- Wie öffne ich ein bestimmtes Arbeitsblatt anhand des ausgewählten Werts eines Kombinationsfelds in Excel?
- Wie kann ich die Eingabe in ein Kombinationsfeld in Excel verhindern oder deaktivieren?
- Wie kann ich das Kombinationsfeld verlassen, um eine bestimmte Zelle in Excel auszuwählen?
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!