Gruppe
Dialog
Problem
Der Inhalt aus Spalte A soll in eine UserForm-TextBox mit vertikalen Scroll-Balken eingelesen werden.
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