Supportnet / Forum / Tabellenkalkulation
doppelte Zellwerte auffinden
Frage
Hallo !
Ich muß eine Tabelle fertigen, in der für einen Artikel
die Teile - Nummern zweier verschiedener Hersteller zugeordnet werden.
Also : Spalte 1 ist Artikelbezeichnung,
Spalte 2 Typ Nr. Hersteller 1 und
Spalte 3 Typ Nr. Hersteller 2
So weit sehr einfach, aber :
im Laufe der Dateneingabe habe ich bemerkt, daß teilweise ein und derselbe Artikel mehrfach auftritt , jedoch mit verschiedenen Artikel - Nummern des Herstellers 1.
Das hat soweit seine Richtigkeit, ich bin aber für Hersteller 2 zuständig und habe dadurch mehrere Doubletten ( gleiche Art.Nr. Hersteller 2 ) in der
Spalte 3.
Zur Klärung einer genauen Zuordnung
muß ich nun die doppelten Artikel
markieren.
Gibt es eine Funktion in Exel 2000, mit der man solche doppelten Werte suchen kann ?
Danke im Vorraus für die Mühe ,
Tomas
Antwort 1 von Guenter
Hallo Thomas,
es gibt mehrere Möglichkeiten das Problem zu lösen.
Du kannst Deine Tabelle nach ArtikelNr Hersteller2 sortieren, so dass doppelte Artikelnummern untereinander stehen. Wenn die erste Artikelnummer in C2 steht, dann C3 markieren und Format Bedingte Formatierung wählen. Eingabe Zellwert gleich =C2 und Muster wählen.
Danach Zelle kopieren und über Inhalte einfügen Formate in die entsprechenden anderen Zellen übertragen.
Makrolösung:
erst sortiern wie oben, dann Makro laufen lassen:
Ich bin sicher, es gibt noch mehr Lösungen!
Gruß
Günter
es gibt mehrere Möglichkeiten das Problem zu lösen.
Du kannst Deine Tabelle nach ArtikelNr Hersteller2 sortieren, so dass doppelte Artikelnummern untereinander stehen. Wenn die erste Artikelnummer in C2 steht, dann C3 markieren und Format Bedingte Formatierung wählen. Eingabe Zellwert gleich =C2 und Muster wählen.
Danach Zelle kopieren und über Inhalte einfügen Formate in die entsprechenden anderen Zellen übertragen.
Makrolösung:
erst sortiern wie oben, dann Makro laufen lassen:
Sub Färben()
Dim z
Dim i
z = Range("C65536").End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To z
If Cells(i, 3) = Cells(i - 1, 3) Then
Cells(i, 3).Interior.ColorIndex = 6
End If
Next i
Application.ScreenUpdating = True
End Sub
Ich bin sicher, es gibt noch mehr Lösungen!
Gruß
Günter
Antwort 2 von Aliba
Hi Tomas,
folgende Formel z.B in SPalte D eingegeben schreibt Dir in die entsprechende Zeilen eine 1, wenn die Artikelnummer in Spalte C mehrmals vorkommt. Bei einmalig vorkommenden Art-Nrn. wird eine 0 geschrieben:
=(ZÄHLENWENN($C$1:$C$10000;C1)>1)*1
CU Aliba
folgende Formel z.B in SPalte D eingegeben schreibt Dir in die entsprechende Zeilen eine 1, wenn die Artikelnummer in Spalte C mehrmals vorkommt. Bei einmalig vorkommenden Art-Nrn. wird eine 0 geschrieben:
=(ZÄHLENWENN($C$1:$C$10000;C1)>1)*1
CU Aliba