Wie fülle ich ein Kombinationsfeld nur in Excel mit eindeutigen Werten?
Wenn Sie ein Kombinationsfeld mit einer Liste von Daten erstellen, die einige doppelte Werte enthalten, werden die doppelten Werte im Kombinationsfeld nicht automatisch ausgeschlossen. Wie können Sie in diesem Fall nur eindeutige Elemente in Ihrem Kombinationsfeld anzeigen? Vielleicht kann Ihnen dieses Tutorial einen Gefallen tun.
Füllen Sie das Kombinationsfeld nur mit VBA-Code mit eindeutigen Werten
Füllen Sie das Kombinationsfeld nur mit VBA-Code mit eindeutigen Werten
Der folgende VBA-Code kann Ihnen beim Hinzufügen der eindeutigen Werte beim Erstellen eines Kombinationsfelds helfen. Gehen Sie dazu folgendermaßen vor:
1. Fügen Sie zuerst ein Kombinationsfeld ein, klicken Sie bitte Entwickler:in / Unternehmen > Insert > Kombinationsfeld (ActiveX-Steuerung)und ziehen Sie dann die Maus, um ein Kombinationsfeld zu zeichnen. Siehe Screenshot:
2. Klicken Sie dann mit der rechten Maustaste auf das Kombinationsfeld und wählen Sie Code anzeigen Siehe im Kontextmenü Screenshot:
3. Und das Microsoft Visual Basic für Applikationen Das Fenster wird geöffnet. Kopieren Sie den folgenden Code und fügen Sie ihn ein, um den ursprünglichen Code zu ersetzen.
VBA-Code: Kombinationsfeld mit eindeutigen Werten:
Public Sub Populate_combobox_with_Unique_values()
'Updateby Extendoffice
Dim vStr, eStr
Dim dObj As Object
Dim xRg As Range
On Error Resume Next
Set dObj = CreateObject("Scripting.Dictionary")
Set xRg = Application.InputBox("Range select:", "Kutools for Excel", _
ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
vStr = xRg.Value
Application.ScreenUpdating = False
With dObj
.comparemode = 1
For Each eStr In vStr
If Not .exists(eStr) And eStr <> "" Then .Add eStr, Nothing
Next
If .Count Then
ActiveSheet.ComboBox1.List = WorksheetFunction.Transpose(.keys)
End If
End With
Application.ScreenUpdating = True
End Sub
Note: Im obigen Code ist die ComboBox1 Ist der Name Ihres erstellten Kombinationsfelds, können Sie es nach Bedarf ändern.
4. Dann drücken F5 Geben Sie die Taste ein, um diesen Code auszuführen, und wählen Sie im Eingabeaufforderungsfeld die Datenquellenliste aus, die Sie dem Kombinationsfeld hinzufügen möchten (siehe Abbildung):
5. Und dann klick OK Schaltfläche, nur die eindeutigen Werte werden im Kombinationsfeld angezeigt, siehe Screenshot:
Tipp: Wenn es keine gibt Entwickler:in / Unternehmen Registerkarte in der Multifunktionsleiste, dieser Artikel Wie wird die Registerkarte "Entwickler" in der Multifunktionsleiste "Excel 2007/2010/2013" angezeigt / angezeigt? kann Ihnen einen Gefallen tun, wenn Sie die Registerkarte Entwickler anzeigen.
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!