Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie legen Sie einen Standardwert in der Dropdown-Liste Datenüberprüfung in Excel fest?

Wenn Sie in der Dropdown-Liste für die Datenüberprüfung einen Standardwert festlegen, können andere die Dropdown-Listenfelder auf einen Blick in einem Arbeitsblatt leicht identifizieren. Dieser Artikel enthält eine VBA-Methode, um einen Standardwert in der Dropdown-Liste Datenüberprüfung in Details festzulegen.

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


Sie interessieren sich für:

Kombinieren Sie mehrere Arbeitsblätter / Arbeitsmappen zu einem Arbeitsblatt / einer Arbeitsmappe:

Kombinieren Sie mehrere Arbeitsblätter oder Arbeitsmappen in einem einzigen Arbeitsblatt oder Arbeitsmappe kann eine große Aufgabe in Ihrer täglichen Arbeit sein. Aber wenn du es getan hast Kutools for Excel, sein mächtiger Nutzen - Kombinieren kann Ihnen helfen, mehrere Arbeitsblätter und Arbeitsmappen schnell zu einem Arbeitsblatt oder einer Arbeitsmappe zusammenzufassen.

Kutools for Excel enthält mehr als 300 praktische Excel-Tools. Kostenlos zu testen, ohne Einschränkung in 60 Tagen. Mehr Laden Sie jetzt die kostenlose Testversion herunter


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


Wie im folgenden Screenshot wird angenommen, dass alle Zellen im Bereich B2: C7 eine Dropdown-Liste enthalten und Sie einen Standardwert festlegen möchten (sagt - 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 Registerkarte 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 Fenster kopieren und fügen Sie den folgenden VBA-Code in das Code-Fenster ein.

VBA-Code: Legen Sie einen Standardwert in der Datenüberprüfungs-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 Sub

Text: Sie können den Standardwert im VBA-Code in den von Ihnen benötigten ändern.

6. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Sie können sehen, dass die Standardwerte zu allen Dropdown-Listenzellen hinzugefügt werden, wie im folgenden Screenshot gezeigt.

Notizen:

1. Der Standardwert wird nach Auswahl des Werts in der Dropdown-Liste nicht mehr angezeigt.

2. Wenn im aktuellen Arbeitsblatt keine Dropdown-Listen zur Datenüberprüfung vorhanden sind, wird das folgende Eingabeaufforderungsfeld angezeigt.


In Verbindung stehende Artikel:



Empfohlene Produktivitätswerkzeuge für Excel

Kutools for Excel hilft Ihnen, Ihre Arbeit immer im Voraus zu erledigen und sich von der Masse abzuheben

  • Mehr als 300 leistungsstarke erweiterte Funktionen, die für 1500-Arbeitsszenarien entwickelt wurden und die Produktivität um 70% steigern, geben Ihnen mehr Zeit, sich um Ihre Familie zu kümmern und das Leben zu genießen.
  • Sie müssen keine Formeln und VBA-Codes mehr auswendig lernen. Geben Sie Ihrem Gehirn eine Pause.
  • Werden Sie ein Excel-Experte in 3 Minuten. Komplizierte und wiederholte Operationen können in Sekunden durchgeführt werden.
  • Reduzieren Sie jeden Tag Tausende von Tastatur- und Mausoperationen und verabschieden Sie sich jetzt von Berufskrankheiten.
  • 110,000 hochwirksame Mitarbeiter und 300 + weltweit renommierte Unternehmen.
  • Kostenlose Testversion für 60-Tage mit allen Funktionen. Geld-zurück-Garantie für 60-Tage. 2 Jahre kostenloses Upgrade und Support.

Bringt das Browsen und Bearbeiten von Registerkarten in Microsoft Office, das weitaus leistungsstärker ist als die Registerkarten des Browsers

  • Die Registerkarte "Office" wurde für Word, Excel, PowerPoint und andere Office-Anwendungen entwickelt: 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 täglich Hunderte von Mausklicks für Sie!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Martin Goodwin · 7 months ago
    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?