Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1056to1060
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
Inhaltsverzeichnis

doppelte Zeilen löschen

doppelte Zeilen löschen
12.03.2009 17:25:54
Peter
Hallo
ich habe den totalen Hänger
Habe im Forum das richtige Makro gefunden
Makro sucht in Spalte A nach Doppel einträgen und löscht die zeile
Ich möchte gern dieses Makro für die Spalte E benutzen
Nur die Spaltenbezeichnung tauschen klappt nicht
Bitte um Hilfe

Sub doppelte_weg()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Application.WorksheetFunction.CountIf(Range("A:A"), Cells(i, 1)) > 1 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub


Gruß Peter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: doppelte Zeilen löschen
12.03.2009 17:44:51
Uwe
Hi Peter,
Du musst auch noch das Cells(i,1) in Cells(i,5) ändern. Die Zahl nach dem Komma ist auch die Spalte (1=!,5=E, 8=H usw.)
Gruß
Uwe
(:o)
AW: doppelte Zeilen löschen
12.03.2009 20:36:15
Gerd
Hallo Peter!

Sub Doppelte_in_Spalte_E_weg()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("E65536").End(xlUp).Row To 2 Step -1
If Application.WorksheetFunction.CountIf(Columns(5), Cells(i, 5)) > 1 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub


Gruß Gerd

AW: doppelte Zeilen löschen
12.03.2009 21:45:44
Peter
Danke jetzt klappt das
Gruß Peter
AW: doppelte Zeilen löschen
12.03.2009 21:24:16
Peter
Hallo
genau das habe ich auch gedacht funktioniert aber bei mir nicht
Kannst du bitte den Code mal schreiben zum rein kopieren?
Danke im vorab
Gruß Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige