Is het mogelijk om een variabel bereik in te stellen in vba voor som.als?
Ik heb het volgende maar krijg het niet werkende helaas:
Ik krijg dan de fout 1004 tijdens uitvoering, door de toepassing of door object gedefineerde fout.
Ik heb het volgende maar krijg het niet werkende helaas:
Code:
Sub TestPiektoeslag()
'
' TestPiektoeslag Macro
Dim LastRow As Integer
Range("B" & Rows.Count).End(xlUp).Offset(1).Select
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
Range("B" & Rows.Count).End(xlUp).Offset(1).Select
ActiveCell.FormulaR1C1 = "Piektoeslag Pakketten"
' Range("C" & Rows.Count).End(xlUp).Offset(1).Select
' ActiveCell.FormulaR1C1 = "=SUMIF(R[10]C[2]:R[24]C[2],""*pakket*"",R[10]C[3]:R[23]C[2])"
LastRow = Range("C" & Rows.Count).End(xlUp).Offset(1).Select
ActiveCell.FormulaR1C1 = "=INDEX(SUMIF(B10:B" & LastRow & ",""*pakket*"",C10:C" & LastRow & "),)"
End Sub
Ik krijg dan de fout 1004 tijdens uitvoering, door de toepassing of door object gedefineerde fout.