VBA-Code anpassen
13.08.2013 12:51:22
Sebastian
also ich habe gestern folgenden VBA Code erhalten.
Option Explicit
Sub Addieren()
Dim lngLAST As Long
lngLAST = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
Application.ScreenUpdating = False
Range("D1:D" & lngLAST).Copy
Range("E1:OZ" & lngLAST).PasteSpecial Paste:=xlAll, Operation:=xlAdd, SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("A1").Select
End Sub
Danke und Gruß, Sebastian