Kopieren in nächste freie zeile
14.03.2017 10:00:35
Alex
ich hätte ein kurze bitte: Wer kann mir kurz helfen die folgende Funktion so umzuschreiben das _
die Zeile in die nächste freie Zeile kopiert wird?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ZielZeile As Long
ZielZeile = Sheets("Abgeschlossen").Cells(Rows.Count, 1).End(xlUp)
Set Target = Intersect(Target, Range("G2:G1000"))
If Target Is Nothing Then Exit Sub
If Target = "Abgeschlossen" Then
Target.EntireRow.Copy Destination:=Sheets("Abgeschlossen").Cells(ZielZeile + 1, 1)
'Target.EntireRow.Delete
End If
End Sub
Vielen Dank