HERBERS Excel-Forum - die Dialoge

Thema: Zwei Spalten als ComboBox-Wert

Home
Als ComboBox-Wert sollen die Texte der ersten beiden Spalten, nicht nur einer, angezeigt werden. Zwei Spalten als ComboBox-Wert
  • Prozedur: cboTwoColumns_Change
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Zwei Spalten als ComboBox-Wert
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Rahmen und das ComboBox-Obejkt bilden
    • Wenn eine ComboBox-Auswahl erfogte...
    • Die ersten beiden Spalten des ausgewählten Datensatzes in eine String-Variable einlesen
    • Den Index der ausgewählten ComboBox-Zeile an eine Integer-Variable übergeben
    • Die String-Variable als ComboBox-Wert eintragen
    • Eine Schleife bilden
    • Die Werte des ausgewählten Datensatzes spaltenweise in 3 TextBoxes eintragen
  • Code:

    
    Private Sub cboTwoColumns_Change()
       Dim iCounter As Integer, iRow As Integer
       Dim sSelect As String
       With cboTwoColumns
          If .ListIndex >= 0 Then
             sSelect = .List(.ListIndex, 0) & " - " & .List(.ListIndex, 1)
             iRow = .ListIndex
             cboTwoColumns.Text = sSelect
          End If
          For iCounter = 1 To 3
             Controls("TextBox" & iCounter).Text = .List(iRow, iCounter - 1)
          Next iCounter
       End With
    End Sub