Gruppe
Dialog
Problem
In ein UserForm-SpreadSheet soll der mit Zelle A1 zusammenhängende Bereich eingelesen werden.
StandardModule: Modul1
Sub DialogAufruf()
frmSpreadSheet.Show
End Sub
ClassModule: frmSpreadSheet
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim rng As Range
Dim iRow As Integer, iCol As Integer
Set rng = Range("A1").CurrentRegion
For iRow = 1 To rng.Rows.Count
For iCol = 1 To rng.Columns.Count
Spreadsheet1.Cells(iRow, iCol).Value = rng.Cells(iRow, iCol).Value
Next iCol
Next iRow
End Sub