Doppelte Werte
26.11.2002 21:51:53
Dietmar E
Ich habe da ein Makro um doppelte Einträge zu löschen.
Mein Problem ist, das das Makro nur von der aktiven Zelle abwärts sucht und Einträge darüber ignoriert.
Wie bring Ich es dazu das es die ganze Spalte durchsucht.
Bitte um eure Hilfe
Cells(ActiveCell.Row, 1).Select
Dim FindeWas, Findewo As Range, Zelle As Range
Dim ZellenZeile%, Antwort, AktivesBlatt
AktivesBlatt = ActiveSheet.Name
FindeWas = ActiveCell.Value
Set Findewo = Worksheets("Löten").UsedRange
Worksheets("Löten").Activate
For Each Zelle In Findewo
If Zelle.Value = FindeWas Then
ZellenZeile = Zelle.Row
Rows(ZellenZeile).Select
Selection.Delete Shift:=xlUp
End If
Next
Anzeige