VBA With
22.10.2018 14:03:25
Florian
Ich habe mit folgendem Code versucht, eine lange Liste aus zu sortieren. Ziel ist es die Werte in Spalte F zu vergleichen und falls sie sich um mehr als das 10fache von einander unterscheiden dann soll der "Ausreißer" (ganze Zeile) gelöscht werden. Uberprüfung sollte von Zeile zu Zeile gehen.
Leider stoße ich auf folgende Fehlermeldung:"Index außerhalb des gültigen Bereichs"
Bitte um Hilfe!
Danke :)
Sub aussortieren()
Dim wks As Worksheet
Dim lngLetzte As Long
Dim lngI As Long
Dim Hilf As Long
Application.ScreenUpdating = False
Set wks = ThisWorkbook.Worksheets("KW1")
With wks
lngLetzte = .Range("A1048576").End(xlUp).Row
For lngI = lngLetzte To 2 Step -1 'wenn keine Überschrift To 1 step -1
For Hilf = lngI To 1 Step -1
If .Range("F" & lngI).Value > .Range("F" & Hilf).Value * 10 Then
.Range("F" & lngI).Interior.ColorIndex = 6
'Rows(lngI).Delete
End If
Next Hilf
Next lngI
End With
Set wks = Nothing
Application.ScreenUpdating = True
End Sub