Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 22:28:14
Formel Suche nur genauen Wert ausgeben
10.05.2024 19:12:28
Suche Formel für Monatsberechnung
10.05.2024 18:20:03
Status/Typ-Werte automatisch setzen in Abhängigkeit
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1068to1072
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
1068to1072
1068to1072
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

finde doppelte

finde doppelte
21.04.2009 09:51:21
walter
Hallo und guten Morgen,
ich habe eine Spalte mit Zahlenkolonnen und möchte hier die doppelten markieren (entweder farblich oder rechts daneben in der freien Zelle mittels einer 1).
Wer weiß Rat.
mit Dank + mfg
Walter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: finde doppelte
21.04.2009 09:56:20
Jan
Hallo Walter
in A ist deine Spalte mit den Werten
dann ist B1 =WENN(ZÄHLENWENN(A$1:A1;A1)>1;"Duplikat";"")
gehts?
Gruss Jan
AW: finde doppelte
21.04.2009 10:05:29
Peter
Hallo Walter,
das könnte z. B. so funktionieren:
Option Explicit

Public Sub DoppelteMarkieren()
Dim lZeile      As Long
Dim sDuplikate  As String
With ThisWorkbook.Worksheets("Tabelle1")
Columns(1).Interior.ColorIndex = xlNone
For lZeile = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If Application.WorksheetFunction.CountIf(Columns(1), Range("A" & lZeile).Value) > 1  _
Then
If sDuplikate = "" Then
sDuplikate = "A" & lZeile
Else
sDuplikate = sDuplikate & ",A" & lZeile
End If
End If
Next lZeile
If sDuplikate  "" Then .Range(sDuplikate).Interior.ColorIndex = 3
End With
End Sub


Gruß Peter

Anzeige
AW: finde doppelte
21.04.2009 10:19:43
walter
Hallo Jan,
mit Dank, funzt bestens, (leider zu gut habe definitiv zu viele doppelte Einträge :-))) )
Hallo Peter,
werde Dein Makro demnächst ebenfalls mal austesten, da ich des öfteren solche netten Aufgaben habe.
mit Dank an alle beide für die schnellen Antworten
mfg
Walter
mit Bedingter Formatierung
21.04.2009 10:24:38
Tino
Hallo,
geht auch recht gut mit der Bedingten Formatierung.
 A
115
212
315
418
519
615

Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
A11. / Formel ist =ZÄHLENWENN($A$1:$A1;$A1)>1Abc
A21. / Formel ist =ZÄHLENWENN($A$1:$A1;$A1)>1Abc
A31. / Formel ist =ZÄHLENWENN($A$1:$A1;$A1)>1Abc
A41. / Formel ist =ZÄHLENWENN($A$1:$A1;$A1)>1Abc
A51. / Formel ist =ZÄHLENWENN($A$1:$A1;$A1)>1Abc
A61. / Formel ist =ZÄHLENWENN($A$1:$A1;$A1)>1Abc

Gruß Tino
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige