der bei Klick einen bestimmten Wert dieser 3 auswählt
Private Sub CommandButton1_Click()
Merker = Sheets("Tabelle1").Range("A1").Value
Sheets("Tabelle1").Range("A1").Value = Sheets("Tabelle2").Range("C103").Value
If MsgBox("Soll der Wert zurückgesetzt werden?", vbYesNo, "Wert zurücksetzen") = vbYes Then _
Sheets("Tabelle1").Range("A1").Value = Merker
End Sub
Sub Auswählen()
Sheets("Angaben").Range("C103").Value = "Wendel"
If MsgBox("Soll der Wert zurückgesetzt werden?", vbYesNo, "Wert zurücksetzen") = vbYes Then _
Sheets("Angaben").Range("C103").Value = "Rohr"
End Sub
Öffne die Excel-Datei mit dem Dropdown-Menü.
Aktiviere den Entwicklermodus: Gehe zu "Datei" > "Optionen" > "Menüband anpassen" und aktiviere das Kontrollkästchen für "Entwicklertools".
Füge einen CommandButton hinzu: Gehe zu "Entwicklertools" > "Einfügen" > "Button (Formularsteuerelement)" und ziehe ihn auf dein Arbeitsblatt.
Doppelklicke auf den Button, um den VBA-Editor zu öffnen.
Füge den folgenden Code ein, um den Wert des Dropdowns zu ändern:
Private Sub CommandButton1_Click()
Sheets("Angaben").Range("C103").Value = "Neuer Wert"
End SubSchließe den VBA-Editor, gehe zurück zu Excel und teste den Button.
Lösung für die Rücksetzanfrage: Wenn du eine Rücksetzanfrage mit einer MsgBox einfügen möchtest, nutze folgenden Code:
Private Sub CommandButton1_Click()
Dim Merker As String
Merker = Sheets("Angaben").Range("C103").Value
Sheets("Angaben").Range("C103").Value = "Neuer Wert"
If MsgBox("Soll der Wert zurückgesetzt werden?", vbYesNo, "Wert zurücksetzen") = vbYes Then
Sheets("Angaben").Range("C103").Value = Merker
End If
End SubVBA Dropdown-Liste anpassen: Wenn du eine Dropdown-Liste in einer UserForm verwenden möchtest, kannst du den Wert wie folgt auswählen:
Me.ComboBox1.Value = "Wert aus der Liste"Verwendung von ActiveX-Steuerelementen: Du kannst ActiveX-Dropdown-Listen verwenden, die mehr Anpassungsmöglichkeiten bieten.
Wert abhängig von Auswahl: Wenn du möchtest, dass bei einer bestimmten Auswahl ein anderer Wert gesetzt wird:
Private Sub CommandButton1_Click()
If Sheets("Angaben").Range("C103").Value = "Wert1" Then
Sheets("Angaben").Range("C103").Value = "Wert2"
Else
Sheets("Angaben").Range("C103").Value = "Wert1"
End If
End SubDropdown-Werte ändern: Um die Werte in der Dropdown-Liste zu bearbeiten, kannst du diese mit dem folgenden Befehl ändern:
Sheets("Angaben").Range("C103").Validation.Modify Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="Wert1,Wert2,Wert3"1. Wie kann ich die Dropdown-Liste dynamisch ändern?
Du kannst die Werte der Dropdown-Liste mit dem Validation-Objekt in VBA anpassen.
2. Ist es möglich, mehrere Dropdowns gleichzeitig zu ändern?
Ja, du kannst mehrere Dropdowns in einer Prozedur anpassen, indem du einfach die entsprechenden Zellreferenzen angibst.
3. Wie speichere ich die Änderungen in einem Dropdown?
Änderungen an den Werten der Dropdown-Liste werden automatisch gespeichert, solange sie in einer gültigen Gültigkeitsregel festgelegt sind.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen