Run-time error 1004. Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen

Habe ich Folgendes 2000 Zeilen code, bekommen ist ein compile-Fehler, weil das Verfahren überlastet ist:

Sheet7.Range("H2").Value = Sheet7.Range("H2").Value + Sheet7.Range("K2").Value
...
Sheet7.Range("H2001").Value = Sheet7.Range("H2001").Value + Sheet7.Range("K2001").Value

Wenn ich, sagen wir, bis zu zehn Gewinnlinien, es funktioniert. Aber ich brauche den code für 2000 Zeilen und das ist, wenn ich die compile-Fehler. Adresse der compile-Fehler, ich habe folgende Schleife, aber es gibt mir Run-time error 1004. Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen.

Dim RowNo as Integer
For RowNo = 2 to 2001 Step 1
    Range(Cells(RowNo, 8)).Value = Range(Cells(RowNo, 8)).Value + Range(Cells(RowNo, 11)).Value
Next RowNo

Wie mache ich die Schleife arbeiten, ohne sich zu einem Laufzeit-Fehler 1004?

InformationsquelleAutor Kazuo | 2013-08-02
  1. 4

    Ändern Sie die Zeile in dir-Schleife in:

    a) mit full sheet Referenzen

    Sheet7.Cells(RowNo, 8).Value = Sheet7.Cells(RowNo, 8).Value + Sheet7.Cells(RowNo, 11).Value

    b) oder kürzer, ohne Blatt Referenzen:

    Cells(RowNo, 8).Value = Cells(RowNo, 8).Value + Cells(RowNo, 11).Value
    InformationsquelleAutor Kazimierz Jawor
  2. 0

    Andere Möglichkeit wäre die Verwendung array-Formel.

    So dass Sie nicht haben, um eine Schleife durch alle Zellen aus, sondern lassen Sie Excel zu berechnen und return array mit den Ergebnissen. Code wird schneller als die for-each-Schleife. HTH

    Public Sub test()
    Dim range1 As Range
    Set range1 = Range("H2:H2001")

    Dim range2 As Range
    Set range2 = Range("K2:K2001")

    Dim result
    Dim myFormula As String
    myFormula = "={0}+{1}"

    Application.ReferenceStyle = xlR1C1

    myFormula = VBA.Strings.Replace(myFormula, "{0}", range1.Address(ReferenceStyle:=xlR1C1))
    myFormula = VBA.Strings.Replace(myFormula, "{1}", range2.Address(ReferenceStyle:=xlR1C1))
    result = Application.Evaluate(myFormula)
    range1.Value = result

    Application.ReferenceStyle = xlA1
End Sub
    • Getestet habe ich die anderen Vorschläge, aber dieser ist der beste, denn er erfüllt die Aufgabe wirklich schnell. Die Verarbeitung ist bis auf 1.98 Sekunden 🙂
    • Ich bin froh, dass es geholfen hat! Ja, array-Formel berechnet Excel dann schneller ist beim Durchlaufen der Zellen ... viel schneller :-).
    InformationsquelleAutor dee
  3. 0

    Könnte man auch dies mit einer hilfsspalte:

    Sub test()
Application.ScreenUpdating = False

With Sheet7
    .Range("I2:I2001").Formula = "=H2+K2"
    .Range("H2:H2001").Value = .Range("I2:I2001").Value
    .Range("I2:I2001").ClearContents
End With

Application.ScreenUpdating = True

End Sub

    Ideal, Sie würden nicht wollen, hart-code in Ihre Zeilen-Referenzen, wenn es vermieden werden könnte. Ich habe auch willkürlich ausgewählte Spalte I werden die Helfer Spalte, stellen Sie es entsprechend Ihrer Platte-Lay-Outs.

    InformationsquelleAutor sous2817
  4. 0

    eror Methode 'Range' für das Objekt '_worksheet' ist fehlgeschlagen
    .
    .
    .
    .

    Sub kar()

Dim i, j

For i = 8 To 15

   For j = 9 To 15

    If (Range("ji") = Range("jj") And Range("gi") = "خريد" And Range("gj") = "فروش" And (Abs(Range("ki") - Range("kj") <= 50))) Then
     Range("ui") = -(Range("ki") - Range("kj")) * hi
     Range("uj") = -(Range("ki") - Range("kj")) * hj
     End If

     If (Range("ji") = Range("jj") And Range("gi") = "فروش" And Range("gj") = "خريد" And (Abs(Range("ki") - Range("kj")) <= 50)) Then
     Range("uj").Value = -(Range("ki") - Range("kj")) * hi
     Range("ui").Value = -(Range("ki") - Range("kj")) * hj
     End If

   Next j

Next i

End Sub
    InformationsquelleAutor azar
Schreibe einen Kommentar