Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Spaltenwerte in UserForm-ListBox übernehmen und ausgeben

Gruppe

ListBox

Problem

Spalte A soll in eine UserForm-ListBox eingelesen werden. Die in der ListBox angeklickten Werte sind in Spalte C zu übernehmen.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.

ClassModule: frmValues

Private Sub cmdContinue_Click()
   Unload Me
End Sub

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

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

Sub CallForm()
   frmValues.Show
End Sub