Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Über SpinButton in UserForm-TextBox einlesen

Gruppe

SpinButton

Problem

Mit einem UserForm-SpinButton sollen die Werte aus Spalte B in eine TextBox eingelesen werden. Start ist beim letzten Wert. Die Zahlenreihe darf keine Lücke aufweisen.

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

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