Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

ListBox-Elemente beim Anklicken in Tabelle übertragen

Gruppe

ListBox

Problem

In einer UserForm-ListBox sollen Zahlen von 1 bis 7 gelistet und bei Mausklick in eine auszuwählende Spalte eingegeben werden.

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

ClassModule: frmInsert

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub lstInsert_Click()
   Dim iRow As Integer, iCol As Integer
   iCol = CInt(cboColumn.Value)
   iRow = Cells(Rows.Count, iCol).End(xlUp).Row + 1
   If iRow = 2 And IsEmpty(Cells(1, iCol)) Then
      iRow = 1
   End If
   Cells(iRow, iCol).Value = lstInsert.Value
End Sub

Private Sub UserForm_Initialize()
   Dim iCounter As Integer
   For iCounter = 1 To 256
      cboColumn.AddItem iCounter
   Next iCounter
   cboColumn.ListIndex = 0
   For iCounter = 1 To 7
      lstInsert.AddItem iCounter
   Next iCounter
End Sub
StandardModule: basMain

Sub CallForm()
   frmInsert.Show
End Sub