Thema: Werte einlesen

Home

Die Spalteninhalte aus A:C werden in MultiPage-TextBoxes eingelesen.

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Werte einlesen
Ablaufbeschreibung:
- Variablendeklaration
- Schleife über 3 Spalten bilden
- Schleife über 2 Zeilen bilden
- Zellwert mit nachfolgendem Wagenrücklauf einer String-Variablen hinzufügen
- Letzten Wagenrücklauf in der String-Variablen entfernen
- Der aktuellen TextBox die String-Variable zuweisen
- Die String-Variable zurücksetzen

Code:


Private Sub UserForm_Initialize()
   Dim iCounter As Integer, iRow As Integer
   Dim sTxt As String
   For iCounter = 1 To 3
      For iRow = 1 To 3
         sTxt = sTxt & Cells(iRow, iCounter).Value & vbLf
      Next iRow
      sTxt = Left(sTxt, Len(sTxt) - 1)
      Controls("TextBox" & iCounter).Text = sTxt
      sTxt = ""
   Next iCounter
End Sub