Gruppe
Allgemein
Problem
Wie kann ich beim Kopieren eines Bereiches auch die jeweiligen Zeilenhöhen und Spaltenbreiten mit ü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