Hallo,
ich habe für den Bereich (B19:E46) einen Namen vergeben.
Mit diesem Code sollen Daten in diesen Bereich in die letzte freie Zeile kopiert werden.
Sheets("Angebotsvorlage").Range("H7,J7,K7,L7").Copy
With ActiveSheet
zeile = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Range("B" & zeile).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Wie kann ich den Namen in den Code einfügen ?
Wenn ich den Code so ausführe kopiert er die Daten in Zeile 2 , nicht in Zeile 19.
Gruß und Danke Mike