Bildformat beim copy&paste beibehalten
26.01.2024 10:39:22
Chris
beim Einfügen des kopierten Bereichs im neuen Tabellenblatt werden die Bilder/Entwicklertools nicht mit formatiert sondern werden viel zu groß dargestellt.
Wie kann ich folgenden Code ergänzen, sodass auch Bilder und die Entwicklertools (Kontrollkästchen) mit gleichem Format/Größe kopiert und eingefügt werden?
Sub Unit()
Dim Quelle As Range, Ziel As Range, a As Long
Set Quelle = ActiveSheet.Range("A36:C74")
Call Worksheets.Add(After:=ActiveSheet)
ActiveSheet.Name = Worksheets("Risikobetrachtung").Range("A39")
Set Ziel = ActiveSheet.Range("A1").Resize(Quelle.Rows.Count, Quelle.Columns.Count)
Call Quelle.Copy(Destination:=Ziel)
For a = 1 To Quelle.Columns.Count
Ziel.Columns(a).ColumnWidth = Quelle.Columns(a).ColumnWidth
Next
Set Quelle = Nothing: Set Ziel = Nothing
End Sub
Gruß Chris