Sie haben eine Tabellenblatt, welches individuell formatiert ist. Wenn nun ausschließlich die Zeilenhöhen des markierten Bereichs von einem Tabellenblatt auf ein anderes Blatt oder von einem Zellbereich auf einen anderen Zellebereich übertragen, also kopiert werden soll, dann können Sie folgenden VBA Code verwenden.
Sub ZeilenhöheÜbertragen()
'von Herbert Grom erstellt am 16.04.2012
Dim iZeile%, iStartZeile%, iEndZeile%, iZeilenHöhe%
Dim sQuellTabelle$, sZielTabelle$
'**Parameter festlegen
iStartZeile = 1
iEndZeile = 13
sQuellTabelle = "Tabelle1"
sZielTabelle = "Tabelle3"
For iZeile = iStartZeile To iEndZeile
'* Zeilenhöhe aus der Quelltabelle auslesen
iZeilenHöhe = Sheets(sQuellTabelle).Rows(iZeile & ":" & iZeile).EntireRow.RowHeight
'* Zeilenhöhe in der Zieltabelle einstellen
Sheets(sZielTabelle).Rows(iZeile & ":" & iZeile).EntireRow.RowHeight = iZeilenHöhe
Next
End Sub
Mit Hilfe der Eigenschaft RowHeight, wird die Zeilenhöhe aus dem markierten Bereich ausgelesen und auf das Zielblatt übertragen.
Der Code stammt von Herbert Grom, vielen Dank dafür.
Anfrageformular öffnen 
Jetzt anrufen: +49 (0)151 164 55 914 
Anfrage per E-Mail senden 
Weitere Informationen 
