Anzeige
Archiv - Navigation
140to144
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
140to144
140to144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

wie kann ich Mehrfacheinträge finden

wie kann ich Mehrfacheinträge finden
28.07.2002 14:42:12
Hans
Hi,
danke und schönen Sonntag.
Gruß
Hans

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

Betreff
Datum
Anwender
Anzeige
Re: wie kann ich Mehrfacheinträge finden
28.07.2002 14:45:14
Hajo_Zi
Hallo Hans

132. Doppelte Einträge
Annahme: Deine Werte stehen in A1 bis Axx
A2 anwählen,Format, Bedingte Formatierung (bei bedingter Formatierung soll es eine Grenze von 2050 Zeilen selber mal Testen)
- "Formel ist" auswählen NICHT "Zellwert ist"
Bei der Formel eingeben =ZÄHLENWENN(A$1:A1;A2)>=1
Bei Format dann z.B. Musterfarbe rot auswählen mit OK beenden.
Die Formatierung auf Die Zellen A3 bis Axx kopieren. Fertig
Dann werdenn Doppelt farblich gekennzeichnet

oder
kann man auch die Doppeleingabe selber verhindern:
z.B, unter Daten, Gültigkeit, benutzerdefiniert
Formel
=ZÄHLENWENN(A:A;A1)=1
nach unten kopieren.
Von Ulrich Schneider


gruß Hajo

Anzeige
Re: wie kann ich Mehrfacheinträge finden
28.07.2002 20:57:35
Ernst Dunkel
Hallo Hans

Versuchsmal mittels VBA, es funktioniert.
Gruss Ernst Dunkel

Sub DoppelteEinträge()
Sheets("Tabelle1").Activate
Columns("A:A").Select
Selection.Sort key1:=Range("A1"), _
order1:=xlAscending, Header:=xlGuess, _
ordercustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value _
Then ActiveCell.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select
Loop
End Sub

Anzeige
Re: wie kann ich Mehrfacheinträge finden
28.07.2002 20:58:12
Ernst Dunkel
Hallo Hans

Versuchsmal mittels VBA, es funktioniert.
Gruss Ernst Dunkel

Sub DoppelteEinträge()
Sheets("Tabelle1").Activate
Columns("A:A").Select
Selection.Sort key1:=Range("A1"), _
order1:=xlAscending, Header:=xlGuess, _
ordercustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value _
Then ActiveCell.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select
Loop
End Sub

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige