Copy mit Rows, Resize und Offset
09.10.2023 20:05:11
Andreas
bei meinem Code stimmt etwas nicht... Vielleicht kann jemand drüber schauen. Komme mit den Rows, Resize und Offset etwas durcheinander...
Er clont nur zwei Zeilen. Soll jedoch die drei vorherigen Zeilen clonen.
Im aktiven Tabellenblatt die 3 Zeilen vor der derzeit aktiven Zeile im Bereich von B:L in den Bereich angefangen von der derzeit aktuellen Zeile
nach unten wieder in den Bereich von B:L kopieren, und danach eine Zeile darunter in "C" aktiv werden.
Also ich befinde mich z.B. in aktiver Zeile 14, nach Klick auf "Clonen" soll der Zeilebereich B:L 11; 12; 13 nach angefangen bei Zeile 14; da muss die 11 rein , bei der 15 die 12 und in die 16 soll demzufolge die Zeile 13 - wieder Zellbereich B:L kopiert werden sowie zum Ende in C:17 aktiv werden...
Sub Test_Klick()
'Sub Letzte_Dreifachzeile_clonen()
With ActiveCell
If .Row > 3 Then
Cells(.Row - 3, 2).Resize(2, 11).Copy Cells(.Row, 2).Offset(0)
End If
End With
'hier eine Zeile tiefer und in "C"aktiv werden
With Cells(ActiveCell.Row + 1, 2).Value
ActiveCell.Offset(2).Select
End With
End Sub
Grüße Andreas