Private Sub worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$A$1" Then Worksheets(2).Cells(Worksheets(2).Range(Worksheets(2).Cells(Rows.Count, 1), Worksheets(2).Cells(Rows.Count, 1)).End(xlUp).Row + 1, 1) = Target.Value End If Application.EnableEvents = True End Sub
58.4k Fragen
249k Antworten
7k Nutzer