HERBERS Excel-Forum - die Dialoge

Thema: Wert aus Spalte 2 anzeigen

Home
Als Wert in der ComboBox soll der Wert aus Spalte 2 statt Spalte 1 angezeigt werden. Wert aus Spalte 2 anzeigen
  • Prozedur: UserForm_Initialize
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Werte einlesen und Wert aus Spalte zwei anzeigen
  • Ablaufbeschreibung:
    • Mehrspaltige Liste einlesen
    • Wert aus Spalte zwei anzeigen
  • Code:

    
    Private Sub UserForm_Initialize()
       cboWerte.List = Range("A1").CurrentRegion.Value
       cboWerte.Value = cboWerte.List(0, 1)
    End Sub
    
  • Prozedur: cboWerte_Change
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Wert aus Spalte zwei anzeigen
  • Ablaufbeschreibung:
    • Wenn ein Wert ausgewählt wurde...
    • Wert aus Spalte zwei anzeigen
  • Code:

    
    Private Sub cboWerte_Change()
       If cboWerte.ListIndex > -1 Then
          cboWerte.Value = cboWerte.List(cboWerte.ListIndex, 1)
       End If
    End Sub
    
  • Prozedur: cmdWeiter_Click
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Wert melden
  • Ablaufbeschreibung:
    • MessageBox mit dem ComboBox-Wert
    • UserForm schließen
  • Code:

    
    Private Sub cmdWeiter_Click()
       MsgBox cboWerte.Value
       Unload Me
    End Sub