Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA? nur doppelte Zeilen rausfiltern

VBA? nur doppelte Zeilen rausfiltern
06.05.2013 14:05:02
Andy
Hallo zusammen,
ich habe eine Liste mit vielen Auftragsnummer aus der ich alle Zeilen rausfiltern muss, die doppelt oder mehrfach vorkommen. Dh. es müssen alle doppelten Zeilen sichtbar bleiben, , alle anderen (nur einfach) sollen gelöscht werden.
Eine Auftragsnummer kann bis zu 6 Mal in meiner Liste auftreten.
Kennt vielleicht jemand von euch dazu eine kleines VBA Script?
Gruß Andy

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
wozu VBA?
06.05.2013 14:14:41
Rudi
Hallo,
10 Sek. Arbeit.
In eine Hilfsspalte =Zählenwenn(a:a;a1), runterkopieren, nach 1 filtern und Zeilen löschen.
Gruß
Rudi

AW: wozu VBA?
06.05.2013 15:29:36
Andy
Hallo Rudi,
danke für den schnellen Tipp.
VBA, da die Daten automatisch geladen und abgearbeitet werden sollen.
Es gibt noch einen Folgeprozess.
Gruß Andy

AW: wozu VBA?
06.05.2013 15:45:20
Rudi
Hallo,
Sub EinzelneWeg()
'Zeile mit einmaligen Werten in A löschen
Dim rngC As Range, rngDel As Range
For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
If WorksheetFunction.CountIf(Columns(1), rngC) = 1 Then
If rngDel Is Nothing Then
Set rngDel = rngC
Else
Set rngDel = Union(rngDel, rngC)
End If
End If
Next
If Not rngDel Is Nothing Then rngDel.EntireRow.Delete
End Sub

Gruß
Rudi
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige