Thema: Werte über SpinButton in TextBox einlesen

Home

Mit dem SpinButton werden die Werte aus Spalte B in eine TextBox gelesen. Start ist beim letzten Wert. Die Zahlenreihe weist keine Lücke auf. Werte über SpinButton in TextBox einlesen

Werte über SpinButton in TextBox einlesen

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Werte einlesen
Ablaufbeschreibung:
- Rahmen um das SpinButton-Objekt bilden
- Minimalwert festlegen
- Maximalwert festlegen
- Wert in TextBox enlesen
- Wert in Label-Aufschrift einlesen

Code:


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

Prozedur: spnColumn_Change
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Werte über SpinButton in TextBox einlesen
Ablaufbeschreibung:
- Rahmen um das Bereichs-Objekt der Zelle aus Spalte B in Zeile gemäß SpinButton-Wert plus eins bilden
- Wert der Zelle in TextBox einlesen
- Zell-Adresse der Zelle in Label-Aufschrift einlesen

Code:


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