Doppelte einträge



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Doppelte einträge
von: Florian
Geschrieben am: 27.06.2002 - 14:14:22

Hallo,
wie kann ich in einem Tabellenblatt alle doppelte werte suchen und die dann farbig makieren DAs mit der Fabe bekomme cih über Marros das wiß ich nur die alles was doppelt ist zu suchen
das eitß ich noch nich.

Vielen Dank im Vorraaus

Fklorian


nach oben   nach unten

Re: Doppelte einträge
von: Hans W Hofmann
Geschrieben am: 27.06.2002 - 15:45:40

Hallo Fklorian,

hast Du Schwierigkeiten mit der Tastatur?
Also ich würde die Daten als Key eines Collection-Objektes einlesen. Der Key ist eindeutig und produziert bei Dupletten einen Laufzeitfehler. Der wird abgefangen und dabei kann man die Markierungen setzen. Alles klar?

Gruß HW


nach oben   nach unten

Vorschlag2
von: MikeS
Geschrieben am: 27.06.2002 - 15:47:59

Hallo,

mal als Lösungsansatz:

1.) lass Deine Daten aufsteigend sortieren

2.) erstelle ein Makro, welches z.B. im Bereich (A1:A10) alle Zelle auf Gleichheit prüft.


Sub GleicheZellenFinden()
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("A1:A10")

  For Each Zelle In Bereich
    If Zelle.Value = Zelle.Offset(1, 0).Value And Not IsEmpty(Zelle) Then
      Zelle.Offset(1, 1).Value = "doppelt vorhanden"
      Zelle.Offset(2, 0).Select
      Else
      Zelle.Offset(1, 0).Select
    End If
  Next
End Sub

Im obigen Makro wird geprüft, ob A1 = A2 ist.

Ist das der Fall, wird rechts neben A2 (in B2) „doppelt vorhanden“ reingeschrieben
und der Zellzeiger zwei Zellen nach unten auf A3 gestellt.

Falls keine Übereinstimmung vorhanden ist, wird der Zellzeiger von A1 auf A2
gestellt.

Leere Zellen werden nicht berücksichtigt.

Vielleicht hilft Dir das ja als „Ansatz“.

Ciao MikeS

nach oben   nach unten

Re: Doppelte einträge
von: Hans W Hofmann
Geschrieben am: 27.06.2002 - 20:52:30

Hallo Florian,

lies doch auch mal die FAQ. Es ist nicht üblich und nicht erwünscht den Formsteilnehmern einfach die Hausaufgaben in den Briefkasten zu legen. Hier soll jeder von jedem lernen und das geht wohl nicht per PM. Aber zu Deinem Problem...

MS Excel Finde die Dupletten
 ABCDE
10.02.0203.02.200204.02.200205.02.200206.02.2002
2100118112118112
3111119110119110
4112112114112114
5113115115115115
6114117117117117
71151111611116
81161161111611
9117111118111118


ICh weis zwar immer noch nicht was Du unter Doppelt verstehst, denn Deine Werte kommen mehrfach vor? Aber mal einen Absatz den Du weiter entwicklen kannst:


Sub ColorDup()
Dim As New Collection
Dim As Range, n As Integer
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
On Error Resume Next
For Each c In Selection
    n = a.Count
    a.Add c.Address, "_" & c.Value
    If a.Count <= n Then
        Range(a("_" & c.Value)).Font.ColorIndex = c.Value Mod 56
        c.Font.ColorIndex = c.Value Mod 56
    End If
Next


Gruß HW

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Doppelte einträge"