VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Über SpinButton in UserForm-TextBox einlesen

Gruppe

Dialog

Bereich

SpinButton

Thema

Über SpinButton in UserForm-TextBox einlesen

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

    


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