Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1472to1476
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

schleifen

schleifen
11.02.2016 12: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
Anzeige
AW: schleifen
11.02.2016 13: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 17:14:58
Kopenhagen
Hat geklappt danke

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige