ich habe ein problem mit löschen bestimmter zeilen. ich habe in spalte a - f, h - m, o - t und v - aa zahlen die voneinander abhängig sind. einzeln raussuchen und löschen ist kein problem aber bei 65500 zeilen und mehreren miteinander abhängigen zahlen wird es ein problem. ich habe hier zwei codes die ich euch zeigen möchte, die erste macht schon ungefähr das was ich mir vorstelle aber wenn ich z.b. in spalte b nur die zahlen zwischen 10 und 15 haben will macht er das auch, aber anstatt nur die zeile von den spalten a-f zu löschen, löscht er die komplette zeile, das heißt auch die spalte h-m, o-t und v-aa obwohl ich da vielleicht die zahlen brauche (unberücksichtigt ob es die verlangten oder nicht verlangten zahlen sind)
Sub ZeilenLoeschen()
'Zeilen löschen, (Inhalte) wenn Wert in Spalte "D" unter bzw. über den
'Grenzwerten liegen
Dim rng As Range
Dim iMin As Integer
Dim iMax As Integer
iMin = 30
iMax = 39
Application.ScreenUpdating = False
For Each rng In ActiveSheet.Range("D1:D25000")
If rng < iMin Or rng > iMax Then
rng.EntireRow.ClearContents
End If
Next
Application.ScreenUpdating = True
End Sub
das ist der zweite der überhaupt nicht funktioniert
Sub ZeilenLoeschen2()
'Zeilen löschen, (komplett) wenn Wert in Spalte "D" unter bzw. über den
'Grenzwerten liegen
Dim rng As Range
Dim lngR As Long
Dim iMin As Integer
Dim iMax As Integer
iMin = 10
iMax = 11
Application.ScreenUpdating = False
Set rng = ActiveSheet.Range("a1:a65500")
For lngR = rng.Rows.Count To 1 Step -1
If rng(lngR) < iMin Or rng(lngR) > iMax Then
rng(lngR).EntireRow.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
ich hoffe ihr könnt mir helfen.
mfg
yusuf