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
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
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen