Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Doppelte Schlüssel löschen

Doppelte Schlüssel löschen
13.09.2005 12:58:24
Rudi
Dieses Makro löscht doppelte Schlüssel im Datenbereich mit dem Feldnamen "AW".
der Bereich beginnt in "B13" und endet in "M65536".
Da dieser Bereich sehr groß ist, sucht das Makro viele Stunden.
Wie kann ich es erreichen, dass das Makro nur die Zeillen mit Einträgen im Datenbereich "AW" durchsucht?
Public

Sub DeleteDoppelteSchlüssel()
Application.Goto Reference:="AW"
Dim nY     As Long
Dim v      As Variant
Dim r      As Range
On Error GoTo ExitSub
With Application
.ScreenUpdating = False
.EnableEvents = False
Set r = IIf(Selection.Rows.Count > 1, _
Selection, _
ActiveSheet.UsedRange.Rows)
For nY = r.Rows.Count To 1 Step -1
v = r.Cells(nY, 1).Value
If .WorksheetFunction.CountIf(r.Columns(1), v) > 1 Then
r.Rows(nY).Delete
End If
Next nY
ExitSub:
Application.Goto Reference:="MNAME"
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

gruss rudiflei

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Schlüssel löschen
13.09.2005 13:57:14
u_
Hallo,
anscheinend willst du ja nur B durchsuchen

Sub loeschen()
Dim i as integer
for i=cells(65536,2).end(xlup).row to 1 step -1
if worksheetfunction.countif(Range(cells(13,2),cells(i,2)),cells(i,2))>1 then
rows(i).delete
end if
next i
End Sub

Gruß
Geist ist geil!
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige