möchte gerne bei Veränderung eines Zellwertes oder einer neuen Eintragung, diese in ein anderes Blatt kopieren.
Kann mir jemand sagen, wie man so etwas anstellt?
Gruß Stefan
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Row = 1 And Target.Column = 1 Then
With Worksheets(1)
.Rows(1 & ":" & 1).Copy Sheets(2).Rows(Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell) _
.Row + 1 & ":" & Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
End With
End If
End Sub