with .Range ... .Copy Destination .... Syntax?
Peter
Mit untenstehendem Code trage ich in der Spalte 102 bestimmte Werte ein und möchte diese in Spalte 69 einsetzen.
Auf Zeile .Copy Destination:=.Range(.Cells(9, 69), .Cells(lngEnd, 69))
erhalte ich ein Debug.Fehler (Anwendungs- oder objektdefinierter Fehler).
Kann mir jemand weiterhelfen?
Danke, Peter
Sub Code()
Dim aBook As Workbook
Dim aSheet As Worksheet
Set aBook = ThisWorkbook
Set aSheet = aBook.Sheets("AlleBuchungen")
With aSheet
lngEnd = .Cells(65536, 1).End(xlUp).Row
hFormel_FRW_R = "=IF(AND(RC[-33]=0,RC[-20]=0),"""",RC[-33]+RC[-20])"
With .Range(.Cells(9, 102), .Cells(lngEnd, 102))
'Debug.Print sFormel 'PPPP
.FormulaR1C1 = hFormel_FRW_R
.Value = .Value
.NumberFormat = "#,##0.00;-#,##0.00"
.Copy Destination:=.Range(.Cells(9, 69), .Cells(lngEnd, 69))
End With
End With
End Sub
Anzeige