Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1336to1340
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1336to1340
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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

Anzeige
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

Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige