VBA-Schleife über den Sichtbaren Zellen nur

Ich bin mit dem folgenden code, um eine Schleife durch jede Zeile, aber ich will nur eine Schleife über den sichtbaren Zellen in Spalte B (wie habe ich herausgefiltert, der Werte, die ich ignorieren wollen) im Bereich von Zeile 10 -194. Weiß jemand, wie ich dies tun?

For X = 192 to 10 Step -1
    If Range("B" & X).Text = "" Then **This needs to change to visible cells only but not sure how!
        Code required insert here
    Else
    End If
Next X
  • If Range("B" & X).entirerow.hidden=false?
InformationsquelleAutor Sean Bailey | 2016-06-09
  1. 2

    Einer Zeilenhöhe von 0 bedeutet, dass die Zeile ausgeblendet ist. So konnte man überprüfen, dass

    For X = 192 to 10 Step -1
    If Worksheets("Sheet1").Rows(X).RowHeight > 0 Then
        Code required insert here
    End If
Next X

    Vorausgesetzt, Sie sind den Umgang mit "Tabelle1" natürlich.

    • Funktioniert perfekt, vielen Dank!
    • Toll. Froh, dass ich helfen konnte.
    InformationsquelleAutor Matt Cremeens
  2. 4
    Dim cell as Range
With Range("B10:B192").SpecialCells(xlCellTypeVisible)
   For X = .Rows.Count to 1 Step -1
       Set cell = Range("A" & X) ' this sets the current cell in the loop
   Next X
End With
    • ooo legen Sie den Bereich zuerst, dann Schleife. Keine Notwendigkeit, Sie zu testen^^
    InformationsquelleAutor user3598756
  3. 2

    Müssen Sie eine zweite Schleife zum Durchlaufen des Bereich.Bereiche von Bereich.SpecialCells(xlCellTypeVisible). Jeder Bereich kann eine oder mehrere Zeilen.

        Dim a As Long, r As Long
    With Range("B10:B192").SpecialCells(xlCellTypeVisible)
        For a = .Areas.Count To 1 Step -1
            With .Areas(a)
                For r = .Rows.Count To 1 Step -1
                    'Debug.Print .Cells(r, 1).Address(0, 0)
                    'Debug.Print .Cells(r, 1).Text
                    If .Cells(r, "B").Text = "" Then
                        'Code required insert here
                    End If
                Next r
            End With
        Next a
    End With

    Scheint es, Sie wollen, um die Schleife nach hinten, sodass ich weiterhin mit dieser Richtung. Wenn die Absicht war, die Zeilen löschen, gibt es einfachere Möglichkeiten, das zu tun.

    • am besten fügen Sie die Fehlerbehandlung zu specialcells
    InformationsquelleAutor
  4. 1
    Dim hiddenColumn: hiddenColumn = "B"
For i = 1 To 10
    If Range(hiddenColumn & i).EntireRow.Hidden = False Then
        'logic goes here....
    End If
Next
    • Außer, dass ich glaube, er will, um code auszuführen, wenn die Zelle/Zeile ist nicht versteckt.
    • Wenn Nicht (Range(hiddenColumn & ich).EntireRow.Versteckt), Dann , hehe, oder Wenn Range(hiddenColumn & ich).EntireRow.Hidden = False Then
    InformationsquelleAutor Barney
Schreibe einen Kommentar