benötige nochmal Hilfe,
Die Zelle "Counter_Grat" hat keine Rahmen. Beim kopieren in den Sheet "Übetrag"
in die Spalte F fügt er es auch ohne Rahmen ein. Wie kann man nur den Wert kopieren
(siehe bestehende Code Zeilen unten).
Sheets("Kontrollkarte").Range("Counter_Grat").Copy Destination:=Sheets("Übertrag").Cells(Rows. _
Count, "F").End(xlUp).Offset(1, 0)
Sheets("Übertrag").Cells(Rows.Count, "F").End(xlUp).Font.Size = 18
Grüße