Hy, ich möchte per Makro alle Zeilenlöschen wenn der Inhalt der Spalte N nicht übereinstimmt. Funktioniert mit einer Bedienung ich möchte jetzt aber Zwei bedienungen setzen, das heißt wenn in Spalte N folgendes steht: "UNABLE_TO_LOCATE_ADRESS" oder "UNABLE_TO_ACESS" diese Zeilen sollen nicht gelöschet werden alles andere ja,
hier mein Code:
Dim lngLetzte As Long
Dim lngI As Long
Dim strWert As String
Dim strWert2 As String
Application.ScreenUpdating = False
strWert = "UNABLE_TO_ACCESS"
strWert2 = "UNABLE_TO_LOCATE_ADDRESS"
With Me
lngLetzte = .Range("N65536").End(xlUp).Row
For lngI = lngLetzte To 1 Step -1
If .Range("N" & lngI).Value <> strWert Or _
.Range("N" & lngI).Value <> strWert2 Then
.Rows(lngI).Delete
End If
Next lngI
End With
Application.ScreenUpdating = True
Was habe ich Falsch gemacht?
Schönen Abend
|