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:
In Verbindung stehende Artikel:
- Wie wird die automatische Vervollständigung beim Eingeben einer Excel-Dropdown-Liste durchgeführt?
- Wie erstelle ich einen Dropdown-Listenkalender in Excel?
- Wie erstelle ich eine durchsuchbare Dropdown-Liste in Excel?
- Wie erstelle ich eine Dropdown-Liste mit mehreren Auswahlen oder Werten in Excel?
- Wie fülle ich andere Zellen automatisch aus, wenn ich Werte in der Excel-Dropdown-Liste auswähle?
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!