Wie kann man ein Kombinationsfeld beim Öffnen der Arbeitsmappe mit bestimmten Daten füllen?
Normalerweise können Sie ein Kombinationsfeld (ActiveX-Steuerelement) mit einem bestimmten Zellendatenbereich füllen, indem Sie die Zellbezüge in das Feld ListFillRange der Eigenschaften des Kombinationsfelds eingeben. Wenn Sie ein Kombinationsfeld direkt mit bestimmten Daten füllen möchten, ohne dessen Eigenschaften manuell anzupassen, kann Ihnen die in diesem Artikel beschriebene Methode helfen.
Kombinationsfeld mit bestimmten Daten über VBA-Code füllen
Kombinationsfeld mit bestimmten Daten über VBA-Code füllen
Diese Methode kann Ihnen helfen, ein Kombinationsfeld direkt beim Öffnen der Arbeitsmappe mit bestimmten Daten zu füllen. Gehen Sie wie folgt vor.
1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Doppelklicken Sie im Fenster Microsoft Visual Basic for Applications im linken Bereich auf ThisWorkbook, um den ThisWorkbook-Code-Editor zu öffnen. Kopieren Sie dann den folgenden VBA-Code hinein. Siehe Screenshot:
VBA-Code: Kombinationsfeld beim Öffnen der Arbeitsmappe mit bestimmten Daten füllen
Private Sub Workbook_Open()
'Updated by Extendoffice 2018/1/30
With Sheet1.ComboBox1
.Clear
.AddItem "Select a Fruit"
.AddItem "Apple"
.AddItem "Banana"
.AddItem "Peach"
.AddItem "Pineapple"
.AddItem "Watermelon"
.Text = .List(0)
End With
End Sub
Hinweise:
3. Speichern Sie die Arbeitsmappe im Format Excel-Makrofähige Arbeitsmappe und schließen Sie sie.
4. Öffnen Sie die Arbeitsmappe erneut, und Sie werden sehen, dass das Kombinationsfeld mit den angegebenen Daten gefüllt wurde, wie im folgenden Screenshot gezeigt:
Verwandte Artikel:
- Wie kopiert man den Wert eines Kombinationsfelds in die aktive Zelle in Excel?
- Wie zeigt man das Datumsformat in der Ausgabe eines Kombinationsfelds in Excel an?
- Wie verhindert oder deaktiviert man das Eintippen in ein Kombinationsfeld in Excel?
- Wie füllt man ein Kombinationsfeld mit Daten eines benannten Bereichs in Excel?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins