Excel VBA: Schleife Wenn Zellen In ActiveSheet

Ich versuche, eine Schleife durch eine angegebene Anzahl von Zellen (definiert durch Breite und Höhe), aber ich bin in Probleme laufen, hier. Es hält Abwürgen auf mich, und dann regt sich auf über:

If .Cells(11 + row, col).Value > maxVal Then

Er mir "Anwendungs-oder objektdefinierter Fehler"

Kann mir jemand sagen, wohin ich gehe falsch mit meinem code:

Sub ApplyFilter()

    Dim maxVal As Double
    Dim minVal As Double

    maxVal = ActiveSheet.Range("D10").Value
    minVal = ActiveSheet.Range("D11").Value

    Dim width As Integer
    Dim height As Integer

    width = ActiveSheet.Range("L3").Value
    height = ActiveSheet.Range("L4").Value


    Dim row As Integer
    Dim col As Integer
    ActiveSheet.Select
    With Selection
        row = 1
        Do
            col = 1
            Do

                If .Cells(11 + row, col).Value > maxVal Then
                    .Cells(11 + row, col).Value = 0
                End If
                If .Cells(11 + row, col).Value < minVal Then
                     .Cells(11 + row, col).Value = 0
                End If
                col = col + 1
                width = width - 1
            Loop Until width = 1
            row = row + 1
            height = height - 1
        Loop Until height = 1
    End With


End Sub
  • Es gibt keine Zelle mit Spalte=0. Sie sollte bei 1 beginnend.
InformationsquelleAutor Neat Machine | 2012-08-11
  1. 1

    Manchmal Excel geben würde "Anwendungs-oder objektdefinierter Fehler" für keinen Grund, denn es ist nur die Art, wie Excel, aber das ist wohl hier nicht der Fall.

    Nicht verwenden Select oder Selection um mit Objekten zu interagieren. Namen der Objekte direkt.

    Dim ws As Worksheet
Set ws = ActiveSheet

With ws
  ...
End With
    • Danke. Ich fixiert, dass, aber es ist immer noch dass mir das gleiche (vielleicht zufällige) Fehler auf der gleichen Linie.
    • Welche Werte machen row und col haben an diesem Punkt?
    • col (das heißt jetzt 'j') ist offenbar das problem verursacht. Es ist über 16.000 wenn es aufhören sollte zu 479 für jede Zeile in diesem Fall. Breite hat seinen negativen Wert, -16,000 +
    • Getestet wird der Wert für die Breite ist, bekommt es seinen ursprünglichen Wert (480) richtig.
    • Ah, ich muss zurückgesetzt-Breite der Schleife, wenn Zeile inkrementiert wird. Dur. Das war das problem. Auch ich fühle mich schlau.
    • Ich möchte noch hinzufügen, dass ich verwendet eine For-Schleife hier statt. Es würde vermeiden das problem vollständig, wie das ist, was es ist bestimmt für.
    • In diesem Fall, anstatt zu akzeptieren Vorschlag, wie die Antwort, die er nicht eintreten könnt, wie - hier können Sie Ihre Lösung selbst als eine separate Antwort, oder als edit zu deiner ersten Frage.

    InformationsquelleAutor GSerg
  2. 2

    Das problem hier war, dass ich nicht das zurücksetzen der width-Wert für jede neue Zeile. Ich hätte es mit einer For-Schleife, die hätte behandelt das problem eher intuitiv.

    InformationsquelleAutor Neat Machine
Schreibe einen Kommentar