Thema: ComboBox-Element hinzufügen

Home

Die Liste einer ComboBox wird um ein Element erweitert. Es existieren zwei UserForms, die erste mit der ComboBox, die zweite mit einer TextBox zur Eingabe des neuen ComboBox-Elements. Der Eintrag wird außer in der ComboBox auch im Tabellenblatt vorgenommen. ComboBox-Element hinzufügen

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Daten in ComboBox einlesen
Ablaufbeschreibung:
- Variablendeklaration
- Zeilenzähler initialisieren
- Rahmen um das ComboBox-Objekt bilden
- Schleife bis zuer ersten leeren Zelle
- Zellinhalt der ComboBox hinzufügen
- Zeilenzähler eins hochzählen

Code:


Private Sub UserForm_Initialize()
   Dim iRow As Integer
   iRow = 1
   With cboStoffdaten
      .Clear
      .AddItem "Neu"
      Do While IsEmpty(Cells(iRow, 1)) = False
         .AddItem Cells(iRow, 1)
         iRow = iRow + 1
      Loop
   End With
End Sub

Prozedur: cmdInsert_Click
Art: Ereignis
Modul: Klassenmodul der 2. UserForm
Zweck: Neues Element hinzufügen
Ablaufbeschreibung:
- Variablendeklaration
- Zeilenindex der ersten freie Zeile in Spalte A des Tabellenblattes an eine Integer-Variable übergeben
- TextBox-Inhalt in der Tabelle eintagen
- TextBox-Inhalt der ComboBox der 1. UserForm hinzufügen

Code:


Private Sub cmdInsert_Click()
   Dim iRow As Integer
   iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
   Cells(iRow, 1).Value = txtStoff.Text
   frmStoffdaten.cboStoffdaten.AddItem txtStoff.Text
   Unload Me
End Sub