wo ist der fehler
29.10.2004 00:24:42
Lucas
möchte gerne bei einem bestimmte spalten fix werte eingeben das sich jedesmal ändert. nur bei dem code was ihr sieht tut das makro folgendes.
Erlöscht alle zellen wo diese werte vorkommen.
z.B
in der spalte gebe ich die die 10 ein nun löscht er alle zellen wo die 10 vorkomt egal am ende oder am anfang die 5110 steht. er sollte aber nur die zeilen löschen wo alleine nur die 10 vorkommt
könnt ihr rüberschauen und sagen wo der fehler ist. Danke
Sub loeschen()
Dim zeile As Long
Dim zaehler As Integer
Dim arr(7)
ScreenUpdating = False
For zaehler = 0 To 7
arr(zaehler) = Cells(zaehler + 1, 7).Value
Next zaehler
For zeile = [B65536].End(xlUp).Row To 1 Step -1
For zaehler = 0 To 7
If InStr(Cells(zeile, 2).Value, arr(zaehler)) > 0 And arr(zaehler) <> "" Then Rows(zeile).Delete: Exit For
Next zaehler
Next zeile
ScreenUpdating = True
End Sub