Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Spalteninhalt in UserForm-TextBox mit ScrollBalken einlesen

Gruppe

TextBox

Problem

Der Inhalt aus Spalte A soll in eine UserForm-TextBox mit vertikalen Scroll-Balken eingelesen werden.

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

ClassModule: frmText

Private Sub cmdCancel_Click()
   Unload Me
End Sub

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

StandardModule: basMain

Sub CallForm()
   frmText.Show
End Sub