Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gleiche Eintäge: gleiche Eintäge

Forumthread: gleiche Eintäge

gleiche Eintäge
12.04.2007 12:37:00
Thomas
Hallo an alle exceler,
ich habe auf der Suche nach meinem "Problem" folgendes Macro im Forum gefunden. Genau das was ich gesucht habe... Hier werden in dem markierten Bereich doppelte Einträge gekennzeichnet.

Sub test()
Dim c As Range
For Each c In Selection
If Application.WorksheetFunction.CountIf(Selection, c.Value) > 1 Then c.Interior.ColorIndex =  _
10
Next
End Sub

Frage:
Mein Tabellenblatt umfasst ca. 6000 Zeilen... dauert sehr lange bzw. hängt sich auf...
Von den mehrfach gekennzeichneten Zellen bis auf eine restlichen Zeilen löschen...
möglich?
Vielen Dank im Voraus.
Gruß Thomas aus EF
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gleiche Eintäge
12.04.2007 13:09:32
Rudi
Hallo,
alle außer einer löschen: 

Sub es_kann_nur_einen_geben()
Dim c As Range
Application.ScreenUpdating=False
For Each c In Selection
If Application.WorksheetFunction.CountIf(Selection, c.Value) > 1 Then c.entirerow.delete
Next c
Application.ScreenUpdating=True
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: gleiche Eintäge
12.04.2007 13:12:00
Daniel
Hallo
probiers mal damit

Sub ZeilenWeg1()
Columns(1).Insert
With Range("A2:A" & Cells(65536, 2).End(xlUp).Row)
.FormulaR1C1 = "=IF(COUNTIF(R1C2:RC2,RC2)>1,TRUE,ROW())"
.Formula = .Value
.CurrentRegion.Sort key1:=Range("A2"), order1:=xlAscending, header:=xlYes
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
.EntireColumn.Delete
End With
End Sub
die zu prüfenden Werte müssen in Spalte A stehen.
stehen sie in einer anderen Spalte, muß die Formel in "=IF(COUNTIF(R1C2:RC2,RC2)>1,TRUE,ROW())" entsprechend angepasst werden:
C2 für Spalte A
C3 für Spalte B
C4 für Spalte C
usw
dh- stehen die zu prüfenden Werte in Spalte E, muß die Formel so abgändert werden:
"=IF(COUNTIF(R1C6:RC6,RC6)>1,TRUE,ROW())"
Gruß, Daniel
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige