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
Inhaltsverzeichnis

Filtern ohne Spezialfilter

Filtern ohne Spezialfilter
06.11.2013 16:56:42
Daniel
Hallo,
ich würde gerne eine größere Datenmenge ohne Spezialfilter
nach Duplikaten in der ersten Spalte durchsuchen und diese
ausblenden. Habe hier aus dem Forum mir mal einen Code gemopst,
minimal angepasst, allerdings blendet der mir jetzt irgendwie alles aus :-)
Weiß da jemand spontan Rat?
Sub Makro1()
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(iRow, 1)) > 1 Then
Rows(iRow).Hidden = True
End If
Next iRow
End Sub

Gruß Daniel

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

Betreff
Datum
Anwender
Anzeige
AW: Filtern ohne Spezialfilter
06.11.2013 17:08:12
Rudi
Hallo,
Sub Makro1()
Dim iRow As Integer, iRowL As Integer
Rows.Hidden = False
iRowL = Cells(Cells.Rows.Count, 1).End(xlUp).Row
With Range(Cells(1, 10000), Cells(iRowL, 10000))
.FormulaR1C1 = "=if(countif(r1c1:rc1,rc1)>1,#n/a,"""")"
On Error Resume Next
.SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Hidden = True
On Error GoTo 0
.ClearContents
End With
End Sub

Gruß
Rudi

AW: Filtern ohne Spezialfilter
07.11.2013 09:36:10
Daniel
Hallo Rudi,
vielen Dank für deine Antwort!
Der Code funktioniert super, allerdings
braucht er bei knapp 10000 Zeilen leider 15 Minuten.
Kann man den Vorgang irgendwie beschleunigen?
Danke und Gruß
Daniel

Anzeige
AW: Filtern ohne Spezialfilter
07.11.2013 10:44:43
Rudi
Hallo,
Sub Makro1()
Dim rHide As Range, rngC As Range
Rows.Hidden = False
For Each rngC In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
If Application.CountIf(Range(Cells(1, 1), rngC), rngC) > 1 Then
If rHide Is Nothing Then
Set rHide = rngC
Else
Set rHide = Union(rHide, rngC)
End If
End If
Next
If Not rHide Is Nothing Then rHide.EntireRow.Hidden = True
End Sub

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige