VBA - Fehler 1004

Question

Diese Zeile zeigt einen Laufzeitfehler 1004, aber ich verstehe nicht, warum:

ActiveCell.Formula = "=MATCH(R" & i & "C16;R" & i & "C6:R" & i & "C15;0)" 

Sub Call_Min() 

    Dim i As Integer 
    Dim limit As Integer 
    Sheets("AUX").Activate 
    limit = ActiveSheet.Range("B6").Value 

    Sheets("DATA").Activate 
    'ActiveSheet.Cells(6, 16).Select 
    'ActiveCell.Formula = "=SUM(Range("F6:I6"))" 
    For i = 6 To limit 

     'MATCH(P6;F6:O6;0) 
     ActiveSheet.Range("P" & i).Select 
     ActiveCell.Formula = "=MIN(R" & i & "C6:R" & i & "C15)" 

     ActiveSheet.Range("E" & i).Select 
     ActiveCell.Formula = "=MATCH(R" & i & "C16;R" & i & "C6:R" & i & "C15;0)" 
    Next i 

End Sub 

Answer 1

Das Problem, dass vba ist sehr US-Englisch-centric. Also entweder , anstelle von ; verwenden oder .FormulaR1C1Local verwenden:

Sub Call_Min() 
Dim i As Integer 
Dim limit As Integer 

limit = Sheets("AUX").Range("B6").Value 

Sheets("Sheet11").Activate 
'ActiveSheet.Cells(6, 16).Select 
'ActiveCell.Formula = "=SUM(Range("F6:I6"))" 
For i = 6 To limit 

     'MATCH(P6;F6:O6;0) 
     Sheets("DATA").Range("P" & i).FormulaR1C1Local = "=MIN(R" & i & "C6:R" & i & "C15)" 

     Sheets("DATA").Range("E" & i).FormulaR1C1Local = "=MATCH(R" & i & "C16;R" & i & "C6:R" & i & "C15;0)" 
Next i 
End Sub 

Siehe here auf, wie mit .Select und warum zu vermeiden.

Answer 2

Sub Call_Min() 

    Dim i As Integer 
    Dim limit As Integer 
    Sheets("AUX").Activate 
    limit = ActiveSheet.Range("B6").Value 

    Sheets("DATA").Activate 
    'ActiveSheet.Cells(6, 16).Select 
    'ActiveCell.Formula = "=SUM(Range("F6:I6"))" 
    For i = 6 To limit 

     'MATCH(P6;F6:O6;0) 
     ActiveSheet.Range("P" & i).Select 
     ActiveCell.FormulaR1C1 = "=MIN(R" & i & "C6:R" & i & "C15)" 

     ActiveSheet.Range("E" & i).Select 
     ActiveCell.FormulaR1C1 = "=MATCH(R" & i & "C16,R" & i & "C6:R" & i & "C15,0)" 
    Next i 

End Sub 

Zwei Änderungen wurden vorgenommen:

1. Verwendung von FormulaR1C1 statt Formula.
2. Ersetzen Sie die ; in den Formeln für ,.