Mein Problem: Ich möchte von Arbeitsblatt1 Spalte B1:E1 bis zur letzten Zeile nach Arbeitsblatt2, Spalte B6:E6 kopieren. Das Vertrackte dabei ist, dass ich in Arbeitsblatt2, Spalte B7:E7 bereits Daten habe, die erhalten bleiben müssen. B7 ist als ("Ausdruck_Fußzeile") benannt.
Mit
Sheets("2").Range("B6").Insert Shift:=xlDown
funktioniert es leider nicht. Der benannte Bereich wird gelegentlich und für mich nicht nachvollziehbar überschrieben. Damit funktioniert das löschen mit:With wksZ
If Range("Ausdruck_Fußzeile").Row 7 Then
Range("B7:B" & Range("Ausdruck_Fußzeile").Row - 1).EntireRow.Delete
Rows("6:6").ClearContents
End If
End With
nicht mehr. Wie bekomme ich die Daten von Arbeitsblatt1 Spalte B1:E1 (bis zur letzten Zeile) nach Arbeitsblatt2, Spalte B7:E7, ohne dass der benannte Bereich überschrieben wird?Gruß Vic