ich möchte die Zeilenhöhe aller Zeilen von einem Worksheet in ein anderes übertragen. Zuvor wurden schon die Inhalte übertragen, die Daten und die Schrift sind also gleich. Die Zeilenhöhen variieren stark. Die Zieltabelle enthält keine Formeln, die Ursprungstabelle enthält Formeln.
Folgenden Code habe ich hier im Forum gefunden:
Dim iZeile%, iStartZeile%, iEndZeile%, iZeilenHöhe%
Dim sQuellTabelle$, sZielTabelle$
iStartZeile = 1
iEndZeile = 150
sQuellTabelle = "Tabelle5"
sZielTabelle = "Tabelle6"
For iZeile = iStartZeile To iEndZeile
iZeilenHöhe = Sheets(sQuellTabelle).Rows(iZeile & ":" & iZeile).EntireRow.RowHeight
Sheets(sZielTabelle).Rows(iZeile & ":" & iZeile).EntireRow.RowHeight = iZeilenHöhe
Next
Tendenziell funktioniert es auch, allerdings weichen die Höhen je um 1mm ab.Beispiel:
Starttabelle Zeile 1 Zeilenhöhe 0,48cm, Zeile B 0,34cm
Zieltabelle Zeile 1 Zeilenhöhe 0,49cm, Zeile B 0,35cm
Woran liegt das und wie kann ich das beheben? Leider führt es nämlich zu verkehrten Umbrüchen in der Zieltabelle.
Vielen herzlichen Dank im Voraus!
Caro