Ich habe ein fehler in einem meiner MAcros, dabei ist es eine Kopie eines funktionierenden Macros, nur mit etwas veränderten Zahlen... aber am eigentlichen Code habe ich nichts verändert
funktionierendes Macro:
Sub SubM1_6Wells()
ActiveCell.Select
ActiveCell.FormulaR1C1 = _
"=SUM(R2C:R[-3]C)"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR((100*COUNTIF(R2C:R[-4]C,1))/COUNT(R2C:R[-4]C), 0)"
ActiveCell.Offset(0, 16).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR((100*SUM(R2C:R[-5]C))/(COUNTA(R2C:R[-5]C)*6), 0)"
ActiveCell.Offset(-1, -16).Range("A1").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:AF1"), Type:= _
xlFillDefault
ActiveCell.Range("A1:AF1").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:P1"), Type:= _
xlFillDefault
ActiveCell.Range("A1:P1").Select
ActiveCell.Offset(0, 16).Range("A1:A2").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:P2"), Type:= _
xlFillDefault
ActiveCell.Range("A1:P2").Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=IFERROR(100*(R[-2]C/(R[-2]C[-16]*6)), 0)"
Selection.AutoFill Destination:=ActiveCell.Range("A1:P1"), Type:= _
xlFillDefault
ActiveCell.Range("A1:P1").Select
Sheets("TO-DO").Select
Range("C25:C27").Select
ActiveCell.FormulaR1C1 = "20"
Range("C28:C31").Select
MsgBox "Done"
End Sub
nicht funktionierendes Macro
Sub SubM1_8Wells()
ActiveCell.Select
ActiveCell.FormulaR1C1 = _
"=SUM(R2C:R[-3]C)"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR((100*COUNTIF(R2C:R[-4]C,1))/COUNT(R2C:R[-4]C), 0)"
ActiveCell.Offset(0, 16).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR((100*SUM(R2C:R[-5]C))/(COUNTA(R2C:R[-5]C)*8), 0)"
ActiveCell.Offset(-1, -16).Range("A1").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:AF1"), Type:= _
xlFillDefault vom Debuger markiert
ActiveCell.Range("A1:AF1").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:P1"), Type:= _
xlFillDefault
ActiveCell.Range("A1:P1").Select
ActiveCell.Offset(0, 16).Range("A1:A2").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:P2"), Type:= _
xlFillDefault
ActiveCell.Range("A1:P2").Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=IFERROR(100*(R[-2]C/(R[-2]C[-16]*8)), 0)"
Selection.AutoFill Destination:=ActiveCell.Range("A1:P1"), Type:= _
xlFillDefault
ActiveCell.Range("A1:P1").Select
Sheets("TO-DO").Select
Range("C25:C27").Select
ActiveCell.FormulaR1C1 = "20"
Range("C28:C31").Select
MsgBox "Done"
End Sub
- BenjaminP.s. Danke im voraus für die Hilfe