Wie kopiert man den Wert einer Kombinationsbox in die aktive Zelle in Excel?

In einigen Fällen müssen Sie möglicherweise den ausgewählten Wert aus einer Kombinationsbox in die aktive Zelle kopieren. Normalerweise müssen Sie manuell in die Kombinationsbox gehen, den Wert kopieren und in die aktive Zelle einfügen. Dieser Artikel stellt eine bequeme Methode vor, um die aktive Zelle automatisch zu aktualisieren, während Sie Werte in einer Kombinationsbox auswählen.

Kombinationsbox-Wert mit VBA-Code in aktive Zelle kopieren

VBA 1: Kombinationsbox-Wert über Befehl in aktive Zelle kopieren
VBA 2: Automatisches Kopieren des Kombinationsbox-Werts in die aktive Zelle

Kombinationsbox-Wert mit VBA-Code in aktive Zelle kopieren

Die folgenden VBA-Codes können Ihnen helfen, den Wert der Kombinationsbox automatisch in die aktive Zelle zu kopieren. Bitte folgen Sie den nachstehenden Schritten.

VBA 1: Kombinationsbox-Wert über Befehlsschaltfläche in aktive Zelle kopieren

1. Zuerst müssen Sie wie im folgenden Screenshot gezeigt eine Befehlsschaltfläche in das Arbeitsblatt einfügen.

2. Klicken Sie mit der rechten Maustaste auf die Befehlsschaltfläche und klicken Sie dann im Kontextmenü auf Ansicht Code. Siehe Screenshot:

3. Ersetzen Sie im sich öffnenden Fenster Microsoft Visual Basic for Applications den ursprünglichen Code im Codefenster durch den folgenden VBA-Code.

VBA-Code: Kombinationsbox-Wert in aktive Zelle kopieren

Private Sub CommandButton1_Click()
   ActiveCell.Value = Me.ComboBox1.Text
End Sub

Hinweis: Im Code ist CommandButton1 der Name der eingefügten Befehlsschaltfläche und ComboBox1 ist der Name der Kombinationsbox, aus der Sie den Wert kopieren werden. Ändern Sie diese Namen bei Bedarf.

4. Drücken Sie die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

Ab jetzt können Sie, wenn Sie den Wert der Kombinationsbox in die aktive Zelle kopieren möchten, einfach die Zelle auswählen und dann auf die Befehlsschaltfläche klicken, um dies zu erledigen.

VBA 2: Automatisches Kopieren des Kombinationsbox-Werts in die aktive Zelle

Der folgende VBA-Code kann Ihnen helfen, die aktive Zelle automatisch zu aktualisieren, während Sie Werte in einer Kombinationsbox auswählen. Sie können wie folgt vorgehen.

1. Stellen Sie sicher, dass der Entwurfsmodus unter der Registerkarte Entwickler aktiviert ist.

2. Klicken Sie mit der rechten Maustaste auf die Kombinationsbox, aus der Sie den Wert kopieren möchten, und klicken Sie dann im Kontextmenü auf Ansicht Code. Siehe Screenshot:

3. Ersetzen Sie im sich öffnenden Fenster Microsoft Visual Basic for Applications den ursprünglichen Code im Codefenster durch den folgenden VBA-Code.

VBA-Code: Kombinationsbox-Wert in aktive Zelle kopieren

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1.Value
End Sub

Hinweis: Im Code ist ComboBox1 der Name der Kombinationsbox, aus der Sie den Wert kopieren werden.

4. Drücken Sie die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen, und deaktivieren Sie den Entwurfsmodus unter der Registerkarte Entwickler.

Ab sofort wird beim Auswählen eines Werts aus der Kombinationsbox dieser ausgewählte Eintrag automatisch in die aktive Zelle eingetragen.

Verwandte Artikel:

• Wie zeigt man das Datumsformat in der Kombinationsbox-Ausgabe in Excel an?
• Wie blendet man eine Befehlsschaltfläche basierend auf einem bestimmten Zellenwert in Excel aus oder ein?
• Wie öffnet man ein bestimmtes Arbeitsblatt basierend auf dem ausgewählten Wert einer Kombinationsbox in Excel?
• Wie verhindert oder deaktiviert man das Tippen in einer Kombinationsbox in Excel?
• Wie wechselt man per Tab aus einer Kombinationsbox, um eine bestimmte Zelle in Excel auszuwählen?