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