Gruppe
Dialog
Problem
Wie kann ich über eine ScrollBar Tabellenblattwerte in UserFormTextBoxes einlesen?
ClassModule: frmDatensatz
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Private Sub scrDatensatz_Change()
Dim iCounter As Integer
For iCounter = 1 To 4
Controls("TextBox" & iCounter).Text = _
Cells(scrDatensatz.Value, iCounter)
Next iCounter
End Sub
Private Sub UserForm_Initialize()
Dim iCounter As Integer
For iCounter = 1 To 4
Controls("TextBox" & iCounter).Text = _
Cells(2, iCounter)
Next iCounter
End Sub
StandardModule: basMain
Sub CallForm()
frmDatensatz.Show
End Sub