ich möchte mit dem folgenden Code über einen Button eine Zeile kopieren. Das klappt auch soweit. Allerdings habe ich nachträglich in einer Spalte eine bedingte Formatierung erzeugt, die doppelte Werte in der Spalte rot anzeigt. Diese bedingte Formatierung wird leider von dem Code nicht mit kopiert, soll aber für weiteren Zeilen, die eingefügt werden mit kopiert werden.
Kann mir jemand weiterhelfen?
Besten Dank
Al
Sub Zeile_einf?gen()
ActiveSheet.Unprotect ("")
Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).EntireRow.Select
Selection.Copy
Selection.Offset(1, 0).Select
Selection.Insert shift:=xlDown
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFiltering:=True
End Sub