schleifen

Forumthread: schleifen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: schleifen

schleifen

11.02.2016 13:56:10

Kopenhagen

wie kann ich für folgenden Code in eine schleife programmieren, so dass ich diesen nicht für jede zeile neu schreiben muss.
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: schleifen

11.02.2016 14:04:55

ChrisL
AW: schleifen

11.02.2016 18:14:58

Kopenhagen

AW: schleifen

11.02.2016 14:04:55

ChrisL

Hi Stockholm

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
On Error GoTo Err_Exit
Application.EnableEvents = False
Cells(Target.Row, 4) = Cells(Target.Row, 4) + Target
End If
Err_Exit:
Application.EnableEvents = True
End Sub

cu
Chris

AW: schleifen

11.02.2016 18:14:58

Kopenhagen

Hat geklappt danke

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!