HERBERS Excel-Forum - die Dialoge

Thema: Wert in TextBox eintragen

Home
Gemäß ComboBox-Auswahl soll ein Wert in die TextBox eingetragen werden. Wert in TextBox eintragen
  • Prozedur: UserForm_Initialize
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Werte in ComboBox einlesen
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Schleife bilden
    • Wert aus Tabelle in ComboBox eintragen
    • 1. Wert der ComboBox auswählen
  • Code:

    
    Private Sub UserForm_Initialize()
       Dim intCounter As Integer
       For intCounter = 1 To 12
          cboListe.AddItem Cells(intCounter, 1)
       Next intCounter
       cboListe.ListIndex = 0
    End Sub
    
  • Prozedur: cboListe_Change
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Wert in TextBox eintragen
  • Ablaufbeschreibung:
    • Wert aus Arbeitsblatt in TextBox eintragen
  • Code:

    
    Private Sub cboListe_Change()
       txtAuswahl.Text = Cells(cboListe.ListIndex + 1, 2)
    End Sub