Mehrfacheinträge
03.12.2002 16:59:55
Dietmar E
Ich verwende folgendes Makro um Mehrfacheinträge zu löschen.
Aber leider funktioniert es nicht richtig.
Meistens werden nur 2 Einträge entfernt und der Rest übersehen.
Woran kann das liegen?
Bitte um eure Hilfe
Dim FindeWas, Findewo As Range, Zelle As Range
Dim ZellenZeile%, Antwort, AktivesBlatt
AktivesBlatt = ActiveSheet.Name
Was = ActiveCell.Value
Set wo = Worksheets("Löten").UsedRange
Worksheets("Löten").Activate
For Each Zelle In wo
If Zelle.Value = Was Then
ZellenZeile = Zelle.Row
Rows(ZellenZeile).Select
Selection.Delete Shift:=xlUp
End If
Next