Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellinhalte in MultiPage-TextBoxes einlesen

Gruppe

MultiPage

Problem

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

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

ClassModule: frmMultiPage

Private Sub cmdCancel_Click()
   Unload Me
End Sub

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
StandardModule: Modul1

Sub DialogAufruf()
   frmMultiPage.Show
End Sub