Thema: Tabelle übernehmen

• Variablendeklaration
• Genutzten Bereich in Tabelle2 an eine Objektvariable übergeben
• Zielbereich im SpreadSheet an Objektvariable übergeben
• Rahmen um das SpreadSheet-Objekt bilden
• Werte in das SpreadSheet einlesen
• Schleife über alle Spalten bilden
• SpreadSheet-Spaltenbreite an die jeweilige Spaltenbreite der Arbeitsblatt-Tabelle anpassen

Private Sub UserForm_Initialize()
   Dim rngSource As Range
   Dim rngTarget As Object
   Dim rng As Range
   Set rngSource = Worksheets("Tabelle2").Range("A1").CurrentRegion
   Set rngTarget = Spreadsheet1.Cells.Range(rngSource.Address)
   With Spreadsheet1
      rngTarget.Value = rngSource.Value
   End With
   For Each rng In rngSource.Rows(1).Columns
      rngTarget.Columns(rng.Column).ColumnWidth = rng.Width
   Next rng
End Sub