Fehler im VBA

Hallo liebes Forum,
habe mir folgenden Code "gegoogelt und gebastelt". Dieser soll die Zellen von D und E auf C addieren und dann die Spalten D und E löschen

Sub Addiere()
Dim LRow As Long, i As Long
LRow = Cells(Rows.Count, 3).End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To LRow 'ab der 2. Zeile wird addiert
With ActiveWorkbook.ActiveSheet
.Range("C" & i).Value = .Range("C" & i) + .Range("D" & i) + .Range("E" & i)
Range("D:E").Select
Selection.Delete Shift:=xlToLeft
End With
Next i
Application.ScreenUpdating = True
End Sub

Nach Aufruf des Makros erscheint die Zeile .Range("C" & i).Value = .Range("C" & i) + .Range("D" & i) + .Range("E" & i) in gelb trotzdem aber addiert und löscht Excel.
Kann mir jemand sagen, was hier verkehrt ist? Würde mich sehr freuen und sage schon einmal Danke.
Gruß
Heike

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Addiere() Dim lngRow As Long, lngIndex As Long On Error GoTo ErrExit Application.ScreenUpdating = False With ActiveSheet lngRow = .Cells(.Rows.Count, 3).End(xlUp).Row For lngIndex = 2 To lngRow 'ab der 2. Zeile wird addiert .Cells(lngIndex, 3) = Application.Sum(.Range(.Cells(lngIndex, 3), .Cells(lngIndex, 5))) Next .Range("E:D").Delete End With ErrExit: Application.ScreenUpdating = True End Sub

Sub Addiere() Dim lngRow As Long, lngIndex As Long On Error GoTo ErrExit Application.ScreenUpdating = False With ActiveSheet lngRow = .Cells(.Rows.Count, 3).End(xlUp).Row For lngIndex = 2 To lngRow 'ab der 2. Zeile wird addiert .Cells(lngIndex, 3) = Application.Sum(.Range(.Cells(lngIndex, 3), .Cells(lngIndex, 5))) Next lngRow = .Cells(.Rows.Count, 7).End(xlUp).Row For lngIndex = 2 To lngRow 'ab der 2. Zeile wird addiert .Cells(lngIndex, 7) = Application.Sum(.Range(.Cells(lngIndex, 7), .Cells(lngIndex, 9))) Next .Range("E:D").Delete .Range("F:G").Delete End With ErrExit: Application.ScreenUpdating = True End Sub

Sub Addiere() Dim lngRow As Long, lngIndex As Long On Error GoTo ErrExit Application.ScreenUpdating = False With ActiveSheet lngRow = Application.Max(.Cells(Rows.Count, 3).End(xlUp).Row, _ .Cells(Rows.Count, 7).End(xlUp).Row) For lngIndex = 2 To lngRow 'ab der 2. Zeile wird addiert .Cells(lngIndex, 3) = Application.Sum(.Range(.Cells(lngIndex, 3), .Cells(lngIndex, 5))) .Cells(lngIndex, 7) = Application.Sum(.Range(.Cells(lngIndex, 7), .Cells(lngIndex, 9))) Next .Range("H:I").Delete .Range("D:E").Delete End With ErrExit: Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread