Wie füllt man ein Textfeld im Excel-Benutzerformular basierend auf der Auswahl eines Kombinationsfelds?
Angenommen, Sie haben eine Tabelle mit einer Spalte für Namen und einer Spalte für Mitarbeiternummern, wie im folgenden Screenshot gezeigt. Jetzt möchten Sie ein Benutzerformular erstellen, das ein Kombinationsfeld enthält, das alle Namen auflistet, sowie ein Textfeld, das automatisch die zugehörige Mitarbeiternummer einträgt, sobald ein Name im Kombinationsfeld ausgewählt wird. Die Methode in diesem Artikel unterstützt Sie dabei, genau das umzusetzen.
Textfeld basierend auf Kombinationsfeldauswahl im Benutzerformular mit VBA befüllen
Textfeld basierend auf Kombinationsfeldauswahl im Benutzerformular mit VBA befüllen
Befüllen Sie das Textfeld wie folgt mit dem passenden Wert, basierend auf der Auswahl im Kombinationsfeld des Benutzerformulars.
1. Drücken Sie die Tasten Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Benutzerformular. Siehe Screenshot:
3. Fügen Sie anschließend, wie im folgenden Screenshot dargestellt, ein Kombinationsfeld-Steuerelement und ein Textfeld-Steuerelement in das erstellte Benutzerformular ein.
4. Klicken Sie mit der rechten Maustaste auf eine beliebige freie Stelle des Benutzerformulars und wählen Sie im Kontextmenü Code anzeigen. Siehe Screenshot:
5. Kopieren Sie im geöffneten Fenster „Benutzerformular (Code)“ den folgenden VBA-Code, und fügen Sie ihn ein, um den ursprünglichen Code zu ersetzen.
VBA-Code: Textfeld basierend auf Kombinationsfeldauswahl im Benutzerformular befüllen
Dim xRg As Range
'Updated by Extendoffice 2018/1/30
Private Sub UserForm_Initialize()
Set xRg = Worksheets("Sheet5").Range("A2:B8")
Me.ComboBox1.List = xRg.Columns(1).Value
End Sub
Private Sub ComboBox1_Change()
Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)
End SubHinweis: Im Code steht A2:B2 für den Bereich mit den Werten, die Sie sowohl im Kombinationsfeld als auch im Textfeld des Benutzerformulars separat befüllen möchten. „Tabelle5“ ist der Name des Arbeitsblatts, das den Datenbereich enthält. Passen Sie diese Angaben je nach Bedarf an.
6. Drücken Sie die Tasten Alt+Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
7. Klicken Sie auf Entwickler > Einfügen > Befehlsschaltfläche (ActiveX-Steuerelement), um eine Befehlsschaltfläche in das Arbeitsblatt einzufügen.
8. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie Code anzeigen aus dem Kontextmenü. Anschließend kopieren Sie den VBA-Code und fügen ihn in das Codefenster ein.
VBA-Code: Benutzerformular anzeigen
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
UserForm1.Show
End Sub9. Deaktivieren Sie den Entwurfsmodus in Ihrer Arbeitsmappe.
Klicken Sie auf die Befehlsschaltfläche, um das entsprechende Benutzerformular zu öffnen. Anschließend werden alle Namen im Kombinationsfeld angezeigt. Sobald Sie einen Namen auswählen, erscheint die zugehörige Mitarbeiternummer automatisch im Textfeld – wie im folgenden Screenshot dargestellt.
Verwandte Artikel:
- Wie füllt man ein Kombinationsfeld beim Öffnen der Arbeitsmappe mit vorgegebenen Daten?
- Wie lassen sich andere Zellen automatisch ausfüllen, sobald ein Wert aus einer Excel-Dropdown-Liste ausgewählt wird?
- Wie lassen sich andere Zellen automatisch ausfüllen, sobald ein Wert aus einer Excel-Dropdown-Liste ausgewählt wird?
- Wie kann man Google-Suchergebnisse in ein Excel-Arbeitsblatt importieren?
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