Thema: Wert in Tabelle übernehmen

Home

Spalte A wird in eine ListBox eingelesen. Die in der ListBox angeklickten Werte werden in Spalte C übernommen. Wert in Tabelle übernehmen

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Werte in ListBox schreiben
Ablaufbeschreibung:
- Der ListBox den mit Zelle A1 zusammenhängenden Bereich zuweisen

Code:


Private Sub UserForm_Initialize()
   lstValues.List = Range("A1").CurrentRegion.Value
End Sub

Prozedur: lstValues_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Wert in Tabelle eintragen
Ablaufbeschreibung:
- Variablendeklaration
- Index der ersten freien Zelle in Spalte C in eine Integer-Variable einlesen
- Ausgewählten Wert in der ListBox in die Tabelle eintragen

Code:


Private Sub lstValues_Click()
   Dim iRow As Integer
   iRow = Cells(Rows.Count, 3).End(xlUp).Row + 1
   Cells(iRow, 3).Value = lstValues.Text
End Sub