Direkt zum Inhalt

Wie lege ich einen Standardwert in der Dropdown-Liste Datenüberprüfung in Excel fest?

Durch Festlegen eines Standardwerts in der Dropdown-Liste für die Datenüberprüfung können andere Benutzer die Dropdown-Listenzellen auf einen Blick in einem Arbeitsblatt leicht identifizieren. Dieser Artikel enthält eine VBA-Methode zum Festlegen eines Standardwerts in der Dropdown-Liste zur Datenüberprüfung im Detail.

Legen Sie einen Standardwert in der Dropdown-Liste Datenüberprüfung mit VBA-Code fest


Legen Sie einen Standardwert in der Dropdown-Liste Datenüberprüfung mit VBA-Code fest

Angenommen, alle Zellen im Bereich B2: C7 enthalten eine Dropdown-Liste, und Sie möchten einen Standardwert festlegen (z - Wähle aus der Liste -) in dieser Dropdown-Liste, bevor Sie Werte aus ihnen auswählen. Sie können den folgenden VBA-Code ausprobieren.

1. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte mit den Dropdown-Listen, die Sie zum Festlegen eines Standardwerts benötigen, und klicken Sie dann auf Code anzeigen aus dem Menü.

2. In dem Microsoft Visual Basic für Applikationen Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Legen Sie einen Standardwert in der Dropdown-Liste Datenüberprüfung fest

Sub DropDownListToDefault()
    Dim xCell As Range
    Dim xRg As Range
    Dim xAcCell As Range
    Dim xScreen As Boolean
    On Error Resume Next
    Set xAcCell = Application.ActiveCell
    Set xRg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
    If xRg Is Nothing Then
        MsgBox "No data validation drop-down lists in current worksheet", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell.Validation.Type = 3 Then
            If xCell.Value = "" Then xCell.Value = "'- Choose from the list -"
        End If
    Next
    xAcCell.Select
    Application.ScreenUpdating = xScreen
End Sub

Note: Sie können den Standardwert im VBA-Code auf den gewünschten Wert ändern.

6. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Sie können sehen, dass die Standardwerte allen Dropdown-Listenzellen hinzugefügt werden (siehe Abbildung unten).

Notizen:

1. Der Standardwert verschwindet nach Auswahl des Werts in der Dropdown-Liste.
2. Wenn das aktuelle Arbeitsblatt keine Dropdown-Listen zur Datenüberprüfung enthält, wird das folgende Eingabeaufforderungsfeld angezeigt.


In Verbindung stehende Artikel:

Beste Office-Produktivitätstools

Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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 ...

kte tab 201905


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Love the code about 'VBA code: set a default value in data validation drop-down list', how do I use the same code for just one column with one dropdown?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations