doppelte löschen

Forumthread: doppelte löschen

doppelte löschen

14.11.2013 17:30:53

Kurt

Guten Abend,
ich nochmal.
Ich habe eine Tabele Spalte A ab A2 angefangen sind jeweils
4 stellige Zahlen.
Leider sind einige doppelt, wie kann man diese per Makro löschen ?
gruß kurt

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: doppelte löschen

14.11.2013 17:35:45

hary
AW: Das geht unter XL2003?

15.11.2013 07:04:27

JoWE
AW:Upps, Version nicht beachtet. gruss owT

15.11.2013 07:14:02

hary
AW: jetzt aber

15.11.2013 09:58:24

hary
AW: doppelte löschen

15.11.2013 09:58:46

Daniel
Danke an Hary und Daniel

15.11.2013 10:33:48

Kurt
Danke an Hary und Daniel

15.11.2013 16:48:56

Kurt

AW: doppelte löschen

14.11.2013 17:35:45

hary

Moin Kurt

With Worksheets("Tabelle1") 'Blattname anpassen
.Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).RemoveDuplicates Columns:=1
End With

gruss hary

AW: Das geht unter XL2003?

15.11.2013 07:04:27

JoWE

AW:Upps, Version nicht beachtet. gruss owT

15.11.2013 07:14:02

hary

AW: jetzt aber

15.11.2013 09:58:24

hary

Moin
So sollte klappen.

Dim i As Integer
Dim letzte As Long
Dim loesche As Range
Application.ScreenUpdating = False
With Worksheets("Tabelle1") 'Blattname anpassen
letzte = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = letzte To 2 Step -1
If Application.CountIf(.Range("A2:A" & i), .Cells(i, 1)) > 1 Then
If loesche Is Nothing Then
Set loesche = .Cells(i, 1)
Else
Set loesche = Union(loesche, .Cells(i, 1))
End If
End If
Next i
End With
If Not loesche Is Nothing Then loesche.EntireRow.Delete
Application.ScreenUpdating = True

gruss hary

AW: doppelte löschen

15.11.2013 09:58:46

Daniel

Hi
probiere mal das:

Sub DoppeltLöschen2003()
With ActiveSheet.UsedRange
.Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlYes
With .Columns(.Columns.Count).Offset(1, 1).Resize(.Rows.Count - 1, 1)
.FormulaR1C1 = "=IF(RC1=R[-1]C1,1,"""")"
.Formula = .Value
If WorksheetFunction.Sum(.Cells) > 0 Then
.EntireRow.Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo
.SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
End If
End With
End With
End Sub

Gruß Daniel

Danke an Hary und Daniel

15.11.2013 10:33:48

Kurt

Guten Morgen zusammen,
herzlichen Dank, für die weiteren
Makro !
Klappt,
mfg kurt

Danke an Hary und Daniel

15.11.2013 16:48:56

Kurt

Guten Morgen zusammen,
herzlichen Dank, für die weiteren
Makro !
Klappt,
mfg kurt

Beliebteste Forumthreads (12 Monate)

Forumthread: doppelte löschen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread