Laufzeitfehler: 1004-Verweis ist Nicht Gültig, die aus Ziel Suchen

Erste von allen, hier ist das Excel-Diagramm in Frage, bevor den code ausgeführt wird:

Laufzeitfehler: 1004-Verweis ist Nicht Gültig, die aus Ziel Suchen

und nach ausführen des Codes:

Laufzeitfehler: 1004-Verweis ist Nicht Gültig, die aus Ziel Suchen

Hier ist der code in Frage:

Option Explicit

Dim Counter As Long
Dim DeSimpleFinal As Double

Sub SimpleDeCalculationNEW()

Counter = 13
Range("C1") = "CFL Calculated"
Range("D1") = "Residual Squared"
Range("E1") = "De value"
Range("F1") = 0.2

'Inserting Equations
Range("C2") = "=((2 * $H$2)/$H$1) * SQR(($F$1 * A2) /PI())"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C" & Counter + 1), Type:=xlFillDefault

Range("D2") = "=((ABS(B2-C2))^2)"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D" & Counter + 1), Type:=xlFillDefault

'Summing up the residuals squared
Range("D" & Counter + 2) = "=Sum(D2, D" & Counter + 1 & ")"

Columns("A:Z").EntireColumn.EntireColumn.AutoFit

'Goal Seek
Range("D" & Counter + 2).GoalSeek Goal:=0, ChangingCell:=Range("F1")

DeSimpleFinal = Range("F1")
'Range("XFD1048523") = DeSimpleFinal

MsgBox ("The Final Value for DeSimple is: " & DeSimpleFinal)

End Sub

Ich bekomme immer diese Fehlermeldung, Laufzeitfehler: 1004-Verweis ist Nicht Gültig, und alle diese Namen Fehler auf dem Arbeitsblatt. Weiß jemand wie ich dies beheben können? Ich versuche, die Summe der quadrierten Residuen so nah an null wie möglich, um die bestmögliche Passform für meine Daten. Dafür benutze ich die Zielwertsuche, die Variation des Wertes von De, gegeben in der Formel 1, um zu minimieren die Summe der quadrierten Residuen, in D15.

Habe ich bekommen, diese Methode funktioniert bisher ohne Problem, und ich bin mir nicht wirklich sicher, warum es hier nicht. Jede Beratung wäre toll!

  • die Linie, die Sie erhalten Fehler 1004??
  • Range("D" & Counter + 2).GoalSeek Goal:=0, ChangingCell:=Range("F1")
InformationsquelleAutor TheTreeMan | 2013-06-03
  1. 3

    Ich bin mir nicht sicher, ob dieses Update alle Probleme, sondern ändern Ihre Funktion line in die folgenden:

    Range("C2").Formula = "=((2 * $H$2)/$H$1) * SQRT(($F$1 * A2) /PI())"

    (SQRT statt SQR)

    Weiterer Tipp, manchmal könnte es besser sein, einen Namen richtig Objekt-Eigenschaften, in Ihrer situation, würde ich vorschlagen, zu verwenden .Formula beim einfügen der Funktion in Bereich, wie:

    Range("C2").Formula = "=((2 * $H$2)/$H$1) * SQRT(($F$1 * A2) /PI())"
Range("D2").Formula = "=((ABS(B2-C2))^2)"
Range("D" & Counter + 2).Formula = "=Sum(D2, D" & Counter + 1 & ")"

    Ich weiß, dass es arbeiten in der Regel, was Sie haben, aber mein Vorschlag ist eine gute Gewohnheit, die ich bleibe 🙂

    • JA! Es war die SQRT-Sache! Warum ist es immer etwas klein und dumm. Vielen Dank für die Beratung am Objekt-Eigenschaften, wie gut!
    InformationsquelleAutor Kazimierz Jawor
Schreibe einen Kommentar