Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

nur Doppelte

nur Doppelte
18.01.2005 10:03:02
Marc
Guten Morgen,
ich habe in meiner Liste (https://www.herber.de/bbs/user/16273.xls)
aus den letzten Monaten einige KundenNr.
Diese KundenNr. habe ich nun schon auf doppeltes Vorkommen farbig makiert.
Wie kann ich jetzt auf die schnelle alle nicht farbigen entfernen und
die farbigen jewalls in den gleichen Spalten ohne Leerzellen untereinander
schreiben.
Schaut euch meine Datei mal an.
Danke
Marc

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nur Doppelte
bernd
hallo marc
versuchs mal so:
löscht die 1X vorhandenen.
>1 bleibt, also auch 3 oder 4 fache
Option Explicit
Public

Sub nur_einfache_weg()
Dim zelle As Range
Dim bereich As Range
With Application
.EnableEvents = False
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
Set bereich = Range("a2:h3356")
For Each zelle In bereich
If WorksheetFunction.CountIf(bereich, zelle.Value) =1 Then _
zelle.ClearContents
Next
bereich.Cells.SpecialCells(xlCellTypeBlanks).Delete shift:=xlShiftUp
With Application
.EnableEvents = True
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub

dauert aber ein wenig bis der code durch ist.
bernd
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige