ich hatte heute ein Problem beim kopieren von Daten:
Die Zeilenhöhe wurde nicht mitkopiert und schon paßte nichts mehr.
Habe dann rausgefunden, dass man die gesamte Zeile kopieren kann und er nimmt die Zeilenhöhe mit. Das ist in meinem Fall aber mit viel Löscharbeit verbunden (Grafiken...)
Wie kann man den Bereich kopieren und mit Zeilenhöhen?
Habe als Basis das hier gefunden:
Sub MoellerCh()
Dim wsQuelle As Worksheet, wsZiel As Worksheet
Dim lngZeile As Long
Set wsQuelle = ActiveSheet
Set wsZiel = Sheets("Zischenspeicher")
wsQuelle.Rows("1:1000").Copy Destination:=wsZiel.Range("A1")
For lngZeile = 1 To 1000
wsZiel.Rows(lngZeile).RowHeight = wsQuelle.Rows(lngZeile).RowHeight
Next lngZeile
End
Sub
Am schönsten wäre ja in dieser Syntax:
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
D.h. man kopiert den Bereich, stellt sich auf das Ziel und fügt alles ein und das mit der _
Zeilenhöhe.
Weiß jemand wie man das machen kann?
Vielen Dank für Eure Hilfe und ein schönes Wochenende
Viele Grüße Jens