Thema: Zellinhalte in MultiPage-TextBoxes einlesen

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

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