VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Spalteninhalt in UserForm-TextBox mit ScrollBalken einlesen

Gruppe

Dialog

Bereich

TextBox

Thema

Spalteninhalt in UserForm-TextBox mit ScrollBalken einlesen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox