Re: Doppelte Einträge aus einer Liste filtern (mit VBA)

Hallo Wolfgang
Hallo NG

Vielen Dank für die rasche Antwort. Leider funktioniert das Makro nicht.
Wahrscheinlich weil j als Single deklariert ist. Warum j = 4 - 8, verstehe
ich auch nicht. Wer weiss, was ich da ändern muss, damit es geht.

Gruss,
Daniel




"Wolfgang Roßbach" <wolfgang@xxxxxxxxxxxxxxxx> schrieb im Newsbeitrag
news:O9ptwTNeFHA.2520@xxxxxxxxxxxxxxxxxxxxxxx
> Hallo Daniel,
>
> so etwa
>
> Sub doppelteGPlöschen()
>
> Dim z As Single
> Dim i As Single
> Dim j As Single
> For j = 4 To 8
>
> With Worksheets(j)
> z = .Range("C65536").End(xlUp).Row
> Application.ScreenUpdating = False
> For i = z To 2 Step -1
> If .Cells(i, 2).Value = .Cells(i - 1, 2).Value Then
> .Cells(i, 2).Value = ""
>
> End If
> Next i
>
>
> End With
> Next j
> Application.ScreenUpdating = True
> End Sub
>
> Gruß
>
> Wolfgang
>
> "Daniel Häsler" <danielhaesler@xxxxxxxxxxx> schrieb im Newsbeitrag
> news:OxUwICNeFHA.3808@xxxxxxxxxxxxxxxxxxxxxxx
>> Hallo NG
>>
>> Ich habe eine Adressliste mit knapp 30'000 Einträgen. Manche Einträge
>> sind doppelt vorhanden. Ich möchte nun eine VBA-Prozedur, welche prüft,
>> ob die jeweils nachfolgende Zelle der Spalte B (denn das Kriterium ist
>> ausschiesslich Spalte B) denselben Wert hat und wenn ja, die nachfolgende
>> gleich gelöscht wird.
>>
>> Mit meinem selbstgeschriebenen Makro komme ich nicht weiter:
>> ***********************************************************************
>> Sub DoppelFiltern()
>> Dim Filterspalte As Range
>> Set Filterspalte= Active***.Range("B2:B30000")
>>
>> For Each Cell In Filterspalte
>> If Cell.Value = Active***.Rows(RowIndex:=2).Value Then
>> Rows(RowIndex:=2).Delete
>> End If
>> Next
>>
>> End Sub
>> ***********************************************************************
>>
>> Ich danke Euch jetzt schon für eure Hilfe.
>>
>> Freundliche Grüsse
>> Daniel Häsler
>>
>>
>> Anmerkung: Bitte macht mich nicht auf den Spezialfilter aufmerksam, der
>> dieses Problem auch lösen sollte, damit geht es nämlich nicht.
>>
>
>


.

Loading