VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

UserForm-TextBox-Werte über ScrollBar einlesen

Gruppe

Dialog

Bereich

ScrollBar

Thema

UserForm-TextBox-Werte über ScrollBar einlesen

Problem

Wie kann ich über eine ScrollBar Tabellenblattwerte in UserFormTextBoxes einlesen?

Lösung

Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.




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

    


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