Wie kann ich Zeilen aus einem Set-Range-Objekt löschen

Question

Sobald ich eine Bereichsvariable in VBA gesetzt habe, gibt es eine Möglichkeit, Zeilen und/oder Spaltenzellen basierend auf einem Wert zu löschen?

Zum Beispiel:

Dim Lrange as Range 

Set Lrange = Range("A1:E5") 

For each row in Lrange 
    If cell(Lrange.row, 3).value = "Somestring" Then 
     LRange.row.delete 
    End if 
Next 

Ist das möglich oder würde ich es zu speichern, in Arbeitsblatt den Bereich zu manipulieren?

Alle Vorschläge sind willkommen!

Answer 1

Wenn Sie die Zeilen in dem Arbeitsblatt löschen möchten, basierend auf einem Wert, dann Code wie die folgenden werden das tun ...

Sub DeleteRows() 
Dim aRange As Range, aRow As Range, aCell As Range 
    Set aRange = Range("A1:E5") 
    For Each aRow In aRange.Rows 
     For Each aCell In aRow.Cells 
      If aCell.Value = "Somestring" Then 
       aRow.EntireRow.Delete 
       Exit For 
      End If 
     Next aCell 
    Next aRow 
End Sub 

Wenn Sie den Bereich ändern möchten, dass ein Objekt in VBA Referenzierung, basierend auf einem Wert, dann Code wie die folgenden wird das tun ...

Sub DeleteRowsInObject() 
Dim aRange As Range, aRow As Range, aCell As Range 
Dim bRange As Range, found As Boolean 
    Set aRange = Range("A1:E5") 
    For Each aRow In aRange.Rows 
     found = False 
     For Each aCell In aRow.Cells 
      If aCell.Value = "Somestring" Then found = True 
     Next aCell 
     If Not found Then 
      If bRange Is Nothing Then 
       Set bRange = aRow 
      Else 
       Set bRange = Union(bRange, aRow) 
      End If 
     End If 
    Next aRow 
    Set aRange = bRange 
    Set bRange = Nothing 
End Sub 

Sie müssen sich mit einem Range-Objekt, vorsichtig sein, die nicht kontinuierlich ist mit seinen Zeilen/Spalten, wie einig Die normalen Eigenschaften/Methoden liefern nicht unbedingt die Werte, die Sie erwarten würden.

Answer 2

Wenn Sie löschen wollen, können Sie Schleife rückwärts durch die Reihen sollten:

Dim Lrange    As Range 
Dim n      As Long 
Set Lrange = Range("A1:E5") 

For n = Lrange.Rows.Count To 1 Step -1 
    If Lrange.Cells(n, 3).Value = "Somestring" Then 
     Lrange.Rows(n).Delete 
    End If 
Next 

zum Beispiel.