Thema: Werte einer Spalte in TextBox

Home

Abbildung - Werte einer Spalte in TextBox

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Werte einer Spalte in TextBox
Ablaufbeschreibung:
- Variablendeklaration
- Startzeile festlegen
- Schleife bis zur ersten leeren Zelle
- Zellwert in eine Sammel-String-Variable einlesen und LineFeed hinzufügen
- Zeilenzähler um 1 hochsetzen
- Gesamtstring in eine TextBox eintragen.

Code:


Private Sub UserForm_Initialize()
   Dim lngRow As Long
   Dim strTxt As String
   lngRow = 1
   Do Until IsEmpty(Cells(lngRow, 1))
      strTxt = strTxt & Cells(lngRow, 1) & vbLf
      lngRow = lngRow + 1
   Loop
   txt.Text = Left(strTxt, Len(strTxt) - 1)
End Sub