Thema: Über SpinButton in UserForm-TextBox einlesen

ClassModule: frmSelect

Private Sub cmdOK_Click()
   Unload Me
End Sub

Private Sub spnColumn_Change()
   With Cells(spnColumn.Max - spnColumn.Value + 1, 2)
      txtValue.Text = .Value
      lblAddress.Caption = .Address(False, False)
   End With
End Sub

Private Sub UserForm_Initialize()
   With spnColumn
      .Min = 1
      .Max = WorksheetFunction.CountA(Columns(2))
   End With
   txtValue = Cells(WorksheetFunction.CountA(Columns(2)), 2).Value
   lblAddress.Caption = Cells(spnColumn.Max, 2).Address(False, False)
End Sub

StandardModule: Modul1

Sub DialogAufruf()
   frmSelect.Show
End Sub

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