Gruppe
Ereignis
Bereich
SelectionChange
Thema
Werte bei Zellbewegungen in andere Tabellen übernehmen
Problem
Bei Zellbewegungen sollen Werte in die in der Tabelle genannten Arbeitsblätter übernommen werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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