Thema: Tabellenzeilen einlesen

Home

Tabellenblattwerte werden in TextBoxes über eine ScrollBar eingelesen.

Prozedur: scrDatensatz_Change
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Tabellenzeilen einlesen
Ablaufbeschreibung:
- Variablendeklaration
- Schleife über Spalten bilden
- Aktueller TextBox den Wert der Zelle gem ScrollBar und Spaltenzähler zuweisen

Code:


Private Sub scrDatensatz_Change()
   Dim iCounter As Integer
   For iCounter = 1 To 4
      Controls("TextBox" & iCounter).Text = _
         Cells(scrDatensatz.Value, iCounter).Value
   Next iCounter
End Sub