bestimmte zahlen löschen
17.10.2004 22:35:59
yusuf
hier will ich euch zuerst ein code zeigen, der die zeilen in spalte a-f löscht wenn z.B. in spalte b min 10 und max 19 eingetragen ist. Das heißt alle zahlen außer von 10 bis 19 werden gelöscht.
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 = 10
iMax = 19
Application.ScreenUpdating = False
For Each rng In ActiveSheet.Range("b1:b65500")
If rng < iMin Or rng > iMax Then
rng.EntireRow.ClearContents
End If
Next
Application.ScreenUpdating = True
End Sub
jetzt brauche ich aber kein code der mir außer den eingetragenen zahlen alles löscht, sondern ein code der mir bloß die eingetragene zahl löscht. wie oben z.B. zeile in spalte a-f löschen wenn in b eine 13 vorkommt.ich hoffe ihr könnt mir helfen.
mfg
yusuf