Excel-VBA: WENN ComboBox.Wert Anweisung

Hallo ich habe diese ComboBox möchte ich gerne einen Befehl, wenn die combox Wert sagt zum Beispiel Paris

Private Sub Workbook_open()

With Sheet1.ComboBox1
.AddItem "Paris"
.AddItem "New York"
.AddItem "London"
End With

If Me.ComboBox1.Value = "Paris" Then
Range("A1").Value = 5
End If

End Sub

Hilfe?
Danke

  • Möchten Sie, dass der Befehl ausgeführt, wenn der Benutzer verändert die combobox Wert? Wenn ja, versuchen Suche in die Event-Handler, speziell Combobox.Change().
InformationsquelleAutor kolis29 | 2014-08-22
  1. 4

    Tatsächlich, Ihr code korrekt ist, aber Ihr Zustand wird nur aufgerufen werden, wenn die Arbeitsmappe geöffnet wird (WorkBook_open()) ...

    Diesem code:

    If Me.ComboBox1.Value = "Paris" Then
     Range("A1").Value = 5
End If

    sollte in einem anderen Verfahren.

    Ex: Wenn Sie wollen A1 zu ändern, wenn Sie ein Element auswählen, die Sie tun können:

    Private Sub Workbook_open()

    With Sheet1.ComboBox1
        .AddItem "Paris"
        .AddItem "New York"
        .AddItem "London"
    End With

End Sub

Private Sub ComboBox1_Change()
    If Me.ComboBox1.Value = "Paris" Then
        Range("A1").Value = 5
    End If
End Sub

    Eigentlich ComboBox1_Change wird jedesmal aufgerufen, wenn ComboBox1 - value-änderungen (ziemlich offensichtlich)

    HINWEIS: Dieser code ist getestet und funktioniert für mich, aber es gibt auch andere Möglichkeiten, das zu tun, wie das hinzufügen eines commandButton und die überprüfung der Bedingung erst wenn diese Schaltfläche geklickt wird.

    • Dank smagnan...wusste gar nicht, dass.
    • ++ gute Antwort @smagnan.
    • Danke! vor allem, da Sie sind einer der Top-VBA-Mitwirkende
    InformationsquelleAutor smagnan
Schreibe einen Kommentar