Wie legt man einen Standardwert in einer Datenvalidierungs-Dropdown-Liste in Excel fest?

Das Festlegen eines Standardwerts in einer Datenvalidierungs-Dropdown-Liste hilft anderen, die Dropdown-Listen-Zellen auf einen Blick leichter zu erkennen. Dieser Artikel bietet eine detaillierte VBA-Methode, um einen Standardwert in einer Datenvalidierungs-Dropdown-Liste festzulegen.

Standardwert in der Datenvalidierungs-Dropdown-Liste mit VBA-Code festlegen

Standardwert in der Datenvalidierungs-Dropdown-Liste mit VBA-Code festlegen

Wie im folgenden Screenshot gezeigt, enthalten alle Zellen im Bereich B2:C7 eine Dropdown-Liste, und Sie möchten einen Standardwert (sagen wir - Aus der Liste auswählen -) in diesen Dropdown-Listen festlegen, bevor Werte daraus ausgewählt werden. Sie können den folgenden VBA-Code ausprobieren.

1. Klicken Sie mit der rechten Maustaste auf das Blatt-Tab mit den Dropdown-Listen, für die Sie einen Standardwert festlegen müssen, und klicken Sie dann im Menü auf Ansicht Code.

2. Kopieren Sie im Fenster Microsoft Visual Basic for Applications den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Standardwert in der Datenvalidierungs-Dropdown-Liste festlegen

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

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

6. Drücken Sie die F5-Taste, um den Code auszuführen. Wie im folgenden Screenshot zu sehen ist, wurden die Standardwerte allen Dropdown-Listen-Zellen hinzugefügt.

Hinweise:

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Verwandte Artikel:

• Wie kann man automatisch vervollständigen, wenn man in einer Excel-Dropdown-Liste tippt?
• Wie erstellt man einen Dropdown-Listen-Kalender in Excel?
• Wie erstellt man eine durchsuchbare Dropdown-Liste in Excel?
• Wie erstellt man eine Dropdown-Liste mit Mehrfachauswahl oder mehreren Werten in Excel?
• Wie kann man andere Zellen automatisch ausfüllen, wenn man Werte in einer Excel-Dropdown-Liste auswählt?