Wie überträgt man den Wert eines Kombinationsfelds in die aktive Zelle in Excel?
In einigen Fällen möchten Sie den ausgewählten Wert aus einem Kombinationsfeld direkt in die aktive Zelle übernehmen. Normalerweise müssten Sie dazu das Kombinationsfeld öffnen, den gewünschten Wert manuell kopieren und anschließend in die aktive Zelle einfügen. Dieser Artikel stellt eine praktische Methode vor, bei der die aktive Zelle automatisch aktualisiert wird, sobald Sie einen Wert im Kombinationsfeld auswählen.
Kopieren des Kombinationsfeldwerts in die aktive Zelle mithilfe von VBA-Code
VBA 1: Kopieren des Kombinationsfeldwerts in die aktive Zelle über eine Befehlsschaltfläche
VBA 2: Automatisches Kopieren des Kombinationsfeldwerts in die aktive Zelle
Kopieren des Kombinationsfeldwerts in die aktive Zelle mithilfe von VBA-Code
Die folgenden VBA-Codes ermöglichen es Ihnen, den Wert des Kombinationsfelds automatisch in die aktive Zelle zu übertragen. Gehen Sie dazu wie folgt vor:
VBA 1: Kopieren des Kombinationsfeldwerts in die aktive Zelle über eine Befehlsschaltfläche
1. Fügen Sie zunächst wie im folgenden Screenshot gezeigt eine Befehlsschaltfläche in das Arbeitsblatt ein.
2. Klicken Sie mit der rechten Maustaste auf die Befehlsschaltfläche und wählen Sie im Kontextmenü Code anzeigen. Siehe Screenshot:
3. Ersetzen Sie im erscheinenden Fenster Microsoft Visual Basic für Applikationen den ursprünglichen Code im Code-Fenster durch den folgenden VBA-Code.
VBA-Code: Kopieren des Kombinationsfeldwerts in die aktive Zelle
Private Sub CommandButton1_Click()
ActiveCell.Value = Me.ComboBox1.Text
End SubHinweis: Im Code steht „CommandButton1“ für die eingefügte Befehlsschaltfläche und „ComboBox1“ für das Kombinationsfeld, aus dem Sie den Wert kopieren möchten. Passen Sie diese Namen entsprechend Ihren Anforderungen an.
4. Drücken Sie die Tastenkombination Alt+Q, um das Fenster Microsoft Visual Basic für Applikationen zu schließen.
Ab sofort wählen Sie einfach die gewünschte Zelle aus und klicken auf die Befehlsschaltfläche, sobald Sie den Wert des Kombinationsfelds in die aktive Zelle kopieren möchten.
VBA 2: Automatisches Kopieren des Kombinationsfeldwerts in die aktive Zelle
Der folgende VBA-Code aktualisiert die aktive Zelle automatisch, sobald Sie einen Wert aus einem Kombinationsfeld auswählen. Gehen Sie dazu wie folgt vor:
1. Stellen Sie sicher, dass der Entwurfsmodus unter der Registerkarte Entwickler aktiviert ist.
2. Klicken Sie mit der rechten Maustaste auf das Kombinationsfeld, aus dem Sie den Wert kopieren möchten, und wählen Sie im Kontextmenü Code anzeigen. Siehe Screenshot:
3. Ersetzen Sie im erscheinenden Fenster Microsoft Visual Basic für Applikationen den ursprünglichen Code im Code-Fenster durch den folgenden VBA-Code.
VBA-Code: Kopieren des Kombinationsfeldwerts in die aktive Zelle
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End SubHinweis: Im Code ist „ComboBox1“ der Name des Kombinationsfelds, aus dem Sie den Wert kopieren möchten.
4. Drücken Sie die Tastenkombination Alt+Q, um das Fenster „Microsoft Visual Basic für Applikationen“ zu schließen und den Entwurfsmodus unter der Registerkarte „Entwickler“ zu deaktivieren.
Ab sofort wird der ausgewählte Wert aus dem Kombinationsfeld automatisch in die aktive Zelle übernommen, sobald Sie ihn auswählen.
Verwandte Artikel:
- Wie lässt sich das Datumsformat in der Ausgabe eines Kombinationsfelds in Excel anzeigen?
- Wie blendet man eine Befehlsschaltfläche in Excel basierend auf einem bestimmten Zellwert ein oder aus?
- Wie öffnet man in Excel ein bestimmtes Arbeitsblatt basierend auf dem im Kombinationsfeld ausgewählten Wert?
- Wie kann man die Eingabe in einem Kombinationsfeld in Excel verhindern oder deaktivieren?
- Wie springt man mithilfe der Tabulator-Taste aus einem Kombinationsfeld, 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 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