identische Werte von gestern
22.09.2002 09:47:00
geri
es funkt aber nur mit Text und nicht mit Zahlenwerte
Sub Makro1()
meineEingabe = Application.InputBox("Geben Sie etwas ein:")
letzteZelle = Range("A65536").End(xlUp).Row
For i = letzteZelle To 1 Step -1
If Range("A" & i) = meineEingabe Then
Rows(i & ":" & i).Delete Shift:=xlUp
End If
Next
End Sub
Anzeige