Excel run-time error 1004

  • application-defined or object-defined error.

    Hallo,
    hab ein tierisches problem, ich soll hier ein makro ausführen und es geht nich. Hab leider keine ahnung von vba (bin hier nur zum praktikum).
    es geht um daten, die aus einer datenbank ins excel extrahiert werden. die erste
    spalte macht er mir, bei d 2. kommt die fehlermeldung.
    hier der code-block:

    If xls_stat_flag And count < 65500 Then
    Sheets("statistics").Select
    Columns("A:A").Select
    Selection.ClearContents
    For i = 0 To count - 1
    Cells(i + 1, 1) = d1(i, 0)
    Next i
    Cells(1, 2).Select
    dummy$ = "=MEDIAN(R[1]C[-1]:R[' & Format(count) & ']C[-1])"
    ActiveCell.FormulaR1C1 = dummy$
    median = Val(Cells(1, 2))
    Cells(1, 2).Select
    dummy$ = "=PERCENTILE(R[1]C[-1]:R[' & Format(count) & ']C[-1],0.25)"
    ActiveCell.FormulaR1C1 = dummy$
    q25 = Val(Cells(1, 2))
    Cells(1, 2).Select
    dummy$ = "=PERCENTILE(R[1]C[-1]:R[' & Format(count) & ']C[-1],0.75)"
    ActiveCell.FormulaR1C1 = dummy$
    q75 = Val(Cells(1, 2))
    iqr = Abs(q75 - q25)
    Cells(1, 2).Select
    dummy$ = "=PERCENTILE(R[1]C[-1]:R[' & Format(count) & ']C[-1]," & Format(p) & ")"
    ActiveCell.FormulaR1C1 = dummy$
    q = Val(Cells(1, 2))
    Sheets("settings").Select

    das untersrichene soll der fehler sein.
    ich hoff der ausschnitt reicht - mein chef täts freuen, und mich auch :)