Thema: Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen

StandardModule: basMain

Sub SuperKopieren()
   Dim rngSource As Range, rngTarget As Range
   Dim iCounter As Integer
   Set rngSource = Worksheets("Tabelle1").Range("A1:C5")
   Set rngTarget = Worksheets("Tabelle2").Range("A1:C5")
   rngSource.Copy rngTarget
   For iCounter = 1 To rngSource.Rows.Count
      rngTarget.Rows(iCounter).RowHeight = _
         rngSource.Rows(iCounter).RowHeight
   Next iCounter
   For iCounter = 1 To rngSource.Columns.Count
      rngTarget.Columns(iCounter).ColumnWidth = _
         rngSource.Columns(iCounter).ColumnWidth
   Next iCounter
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren