schleifen
11.02.2016 12:56:10
Kopenhagen
sie soll enden mit der zeile in der keine Daten eingetragen sind.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "E2" Then
On Error GoTo Err_Exit
Application.EnableEvents = False
Range("D2") = Range("D2") + Target
End If
If Target.Address(0, 0) = "E3" Then
On Error GoTo Err_Exit
Application.EnableEvents = False
Range("D3") = Range("D3") + Target
End If
Err_Exit:
Application.EnableEvents = True
End Sub
Anzeige