Thema: ListBox-Elemente beim Anklicken in Tabelle übertragen

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

Beiträge aus dem Excel-Forum zu den Themen Dialog und ListBox