VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen

Gruppe

Allgemein

Bereich

Kopieren

Thema

Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen

Problem

Wie kann ich beim Kopieren eines Bereiches auch die jeweiligen Zeilenhöhen und Spaltenbreiten mit übernehmen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




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