Gruppe
Ereignis
Problem
Bei Zellbewegungen sollen Werte in die in der Tabelle genannten Arbeitsblätter übernommen werden.
ClassModule: Tabelle1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wks As Worksheet
Dim iRow As Integer
If Target.Row = 1 Then Exit Sub
If Target.Column > 2 Then Exit Sub
If IsEmpty(Cells(Target.Row, 2)) Then Exit Sub
On Error Resume Next
Set wks = Worksheets("final data" & CStr(Cells(Target.Row, 2).Value))
If Not wks Is Nothing Then
iRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
wks.Rows(iRow).Value = Rows(Target.Row).Value
End If
On Error GoTo 0
End Sub