Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Wert aus DropBox auslesen

• Wert aus DropBox auslesen von Jürgen vom 19.11.2012 20:05:38
• AW: Wert aus DropBox auslesen - von Beverly am 19.11.2012 21:08:52
• AW: Wert aus DropBox auslesen - von JoWE am 19.11.2012 21:10:26

Betrifft: Wert aus DropBox auslesen von: Jürgen
Geschrieben am: 19.11.2012 20:05:38

Hallo Helferleins,

ich will mir eine Datei machen in der durch auswahl eines Wertes, ein Rahmen ein- bzw. ausgeblendet wird.

Allerdings kann ich den Wert der Dropdown nicht auslesen ?

Wo hakt es da , ausser bei mir ????

Gruß Jürgen

https://www.herber.de/bbs/user/82687.xlsm

Betrifft: AW: Wert aus DropBox auslesen von: Beverly
Geschrieben am: 19.11.2012 21:08:52

Hi Jürgen,

   Dim cbbElement As DropDown
   With ActiveSheet.DropDowns(1)
      If .ListIndex > 0 Then MsgBox Range(.ListFillRange).Cells(.ListIndex)
   End With

---

Betrifft: AW: Wert aus DropBox auslesen von: JoWE
Geschrieben am: 19.11.2012 21:10:26

Hallo Jürgen

nimm statt eines Formularsteuerlementes ein ActiveX-Steuerelement, hier die Combobox.
Die Werte für die Box stehen in Deiner Tabelle in Range("R4:R5").
Dazu dann diesen Code:

Private Sub ComboBox1_Change()
    Select Case ComboBox1.Value
    Case Is = "_IC100"
        ActiveSheet.Shapes(ComboBox1.Value).Visible = False
        ActiveSheet.Shapes("_C400").Visible = True
    Case Is = "_C400"
        ActiveSheet.Shapes(ComboBox1.Value).Visible = False
        ActiveSheet.Shapes("_IC100").Visible = True
    End Select
End Sub

Gruß
Jochen

Beiträge aus den Excel-Beispielen zum Thema "Wert aus DropBox auslesen"