Hallo zusammen,
wer kann mir helfen??
in meinem code kommt immer eine fehlermeldung schlüsselwort me falsch verwendet...
Dim lngLetzte As Long
Dim lngI As Long
Dim strWert As String
Application.ScreenUpdating = False
strWert = ThisWorkbook.Worksheets("M-t-M").Range("A2").Value
With Me
lngLetzte = Range("A65536").End(xlUp).Row
For lngI = lngLetzte To 5 Step -1
If .Range("A" & lngI).Value <> strWert Then
.Rows(lngI).Delete
End If
Next lngI
End With
Application.ScreenUpdating = True
bin dankbar über jeden tipp :-)
grüßle miri
|