Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Ereignis und SelectionChange