Rij verwijderen als cel waarde bevat

[scartsjer]

Hallo,

momenteel gebruik ik om een rij te verwijderen als een cel een bepaalde waarde bevat de volgende code:

Sub DelRows()
Application.ScreenUpdating = True
totalrows = ActiveSheet.UsedRange.Rows.Count

For Row = totalrows To 1 Step -1
    If (Cells(Row, 9).Value = True _
    Or Cells(Row, 9).Value = "DIN 128-A" Or Cells(Row, 9).Value = "DIN 985" Or Cells(Row, 9).Value = "DIN 975" _
    Or Cells(Row, 9).Value = "DIN 931" Or Cells(Row, 9).Value = "DIN 59200" Or Cells(Row, 9).Value = "DIN 9021-A" _
    Or Cells(Row, 9).Value = "DIN 912" Or Cells(Row, 9).Value = "EN 10060" Or Cells(Row, 9).Value = "EN 10056" _
    Or Cells(Row, 9).Value = "DIN 6798" _
    Or Cells(Row, 9).Value = "DIN 125-A" _
    Or Cells(Row, 9).Value = "DIN 6885A" _
    Or Cells(Row, 9).Value = "DIN 934" _
    Or Cells(Row, 9).Value = "DIN 6319-C" _
    Or Cells(Row, 9).Value = "DIN 6319-D" _
    Or Cells(Row, 9).Value = "EN 10279" _
    Or Cells(Row, 9).Value = "ISO 7379" _
    Or Cells(Row, 9).Value = "DIN 7349" _
    Or Cells(Row, 9).Value = "DIN 7991" _
    Or Cells(Row, 9).Value = "DIN2986" _
    Or Cells(Row, 9).Value = "DIN 3015-1" _
    Or Cells(Row, 9).Value = "xxx" _
    Or Cells(Row, 9).Value = "xyz" _
    Or Cells(Row, 9).Value = "DIN 7979 D" _
    Or Cells(Row, 9).Value = "DIN 929" _
    Or Cells(Row, 9).Value = "DIN 7980" _
    Or Cells(Row, 9).Value = "EN 10034" _
    Or Cells(Row, 9).Value = "DIN * " _
    Or Cells(Row, 9).Value = "DIN 7980" _
    ) Then
    Rows(Row).Delete
    End If
Next Row
Application.ScreenUpdating = True

End Sub

echter kom ik tot de conclusie dat de rij altijd verwijderd kan worden zodra er een waarde in staat met uitzondering zodra er een - teken in staat.

hoe krijg ik dit voor elkaar?

 

[Leotaxi]

Hallo,

deze haalt alle regels weg die in kolom I geen "-" bevatten.

mvg
Leo

Application.ScreenUpdating = False

Dim rng As Range, lastrow As Long, x As Long, ant As Long

ant = 0
lastrow = Range("i" & Rows.Count).End(xlUp).Row


For x = 1 To lastrow
Set rng = Cells(x, 9).Find(what:="-")
If rng Is Nothing Then
Range("a" & x).EntireRow.Delete
x = x - 1
ant = ant + 1
End If
If ant = lastrow Then GoTo sluit
Next
sluit:
Application.ScreenUpdating = True
End Sub

 

[scartsjer]

Dankje, het werkt ... alleen iets te fanatiek, hij haalt ook alle rijen weg welke geen inhoud bevatten.

Hoe voorkom ik dat rijen worden verwijderd als de cel in kolom I leeg is?

 

[Leotaxi]

Vervang deze regel eens

If rng Is Nothing Then

in

If rng Is Nothing and rng <> "" Then

kan zelf niets testen nu maar ik vermoed dat dit voldoende is

mvgg
Leo

 

[scartsjer]

hej, heb t opgelost. dit is het werkende resultaat:

Sub DelRows()
Application.ScreenUpdating = False

Dim rng As String, lastrow As Long, x As Long, ant As Long
ant = 0
lastrow = Range("i" & Rows.Count).End(xlUp).Row
For x = 1 To lastrow
rng = Cells(x, 9)
If rng <> "" And rng <> "-" Then
Range("a" & x).EntireRow.Delete
x = x - 1
ant = ant + 1
End If
If ant = lastrow Then GoTo sluit
Next
sluit:
Application.ScreenUpdating = True
End Sub

Dank u!