Wie legt man in Excel einen Standardwert für eine Dropdown-Liste mit Datenüberprüfung fest?
Ein Standardwert in der Dropdown-Liste der Datenüberprüfung hilft anderen, die entsprechenden Zellen auf einen Blick leicht zu erkennen. Dieser Artikel beschreibt detailliert eine VBA-Methode, um einen solchen Standardwert festzulegen.
Legen Sie einen Standardwert in der Datenüberprüfung Dropdown-Liste mithilfe von VBA-Code fest
Legen Sie einen Standardwert in der Datenüberprüfung Dropdown-Liste mithilfe von VBA-Code fest
Angenommen, alle Zellen im Bereich B2:C7 enthalten Dropdown-Listen, und Sie möchten vor der ersten Auswahl einen Standardwert (z. B.)– Aus Liste auswählen –) in diesen Dropdown-Listen festlegen. Dann hilft Ihnen der folgende VBA-Code weiter.
1. Klicken Sie mit der rechten Maustaste auf die Arbeitsblattregisterkarte mit der Dropdown-Liste, für die Sie einen Standardwert festlegen möchten, und wählen Sie dann im Kontextmenü Code anzeigen aus.
2. Fügen Sie im Fenster Microsoft Visual Basic for Applications den folgenden VBA-Code in das Code-Fenster ein.
VBA-Code: Legen Sie einen Standardwert in der Datenüberprüfung Dropdown-Liste 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 SubHinweis: Sie können den Standardwert im VBA-Code ganz einfach an Ihre Anforderungen anpassen.
6. Drücken Sie die Taste F5, um den Code auszuführen. Anschließend sehen Sie, dass allen Dropdown-Listenzellen die Standardwerte wie in der Abbildung gezeigt hinzugefügt wurden.
Hinweise:
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Verwandte Artikel:
- Wie lässt sich beim Tippen in einer Excel-Dropdown-Liste eine automatische Vervollständigung aktivieren?
- Wie erstellt man einen Dropdown-Kalender in Excel?
- Wie erstellt man eine durchsuchbare Dropdown-Liste in Excel?
- Wie erstellt man in Excel eine Dropdown-Liste, die mehrere Auswahlmöglichkeiten oder Werte zulässt?
- Wie lassen sich andere Zellen automatisch ausfüllen, sobald ein Wert aus einer Excel-Dropdown-Liste ausgewählt wird?
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins