Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Tabelle in UserForm-Spreadsheet einlesen

Gruppe

SpreadSheet

Problem

In ein UserForm-SpreadSheet soll der mit Zelle A1 zusammenhängende Bereich eingelesen werden.

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

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