Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe eine Excel Tabelle mit ca. 20.000 Datensätzen. Eine Spalte enthält 10stellige Artikelnummern. Ich muß nun nach doppelten Nr. suchen. "Per Hand" ist dies nicht machbar. Selbst nach Sortierung (doppelte sollten dann untereinander stehen) kriegt man "ne Macke" Gibt es eine Möglichkeit, doppelte suchen, eventuell sogar markieren oder in anderer Farbe darstellen zu lassen? Danke für die Hilfe. Matscher

Hi,

vielleicht hilft dir dieses Makro weiter:

Sub Doppelte_Zellen_markieren()
Dim Zelle1
Dim Wo, ber, Ja
eing = InputBox("Die Zelle eingeben, ab der geprüft werden soll," _
& (Chr(13)) & "z.B. A1 oder F6.", "Zellenauswahl")
If eing = "" Then Exit Sub
Range(eing).Select
eing = ""
Application.ScreenUpdating = False
Zelle1 = ActiveCell
Wo = ActiveCell.Address
ActiveCell.Offset(1).Select
ber = ActiveCell.CurrentRegion.Rows.Count
For x = 1 To ber
i = 1
For i = i To ber
If ActiveCell.Interior.ColorIndex = 5 _
Or ActiveCell.Interior.ColorIndex = 8 Then GoTo fin
If ActiveCell.Value = Zelle1 Then
If ActiveCell <> "" Then
ActiveCell.Interior.ColorIndex = 5
ActiveCell.Offset(0, 1) = "Duplikat"
Ja = 1
End If
End If
fin:
ActiveCell.Offset(1).Select
Next i
Range(Wo).Select
If Ja <> 0 Then
ActiveCell.Interior.ColorIndex = 8
ActiveCell.Offset(0, 1) = "Orginal"
End If
ActiveCell.Offset(1).Select
Wo = ActiveCell.Address
Ja = 0
Zelle1 = ActiveCell
ActiveCell.Offset(1).Select
Next x
End Sub

(Quelle)


Der Code macht Folgendes:
beim Start des Makros wirst du gefragt, ab wo du prüfen lassen willst, also ab welcher Zelle.

Dann wird die Spalte durchsucht und die Doppelten markiert. Rechts neben den doppelten Werten wird einmal "Original" und bei allen weiteren doppelten Werten "Kopie" geschrieben.

Einbau in die tabelle:

Extras - Makro - Visual Basic-Editor
dort
Einfügen - Modul
es erscheint "Modul1", dort hinein kopierst du obigen Code. VB-Editor schließen.

Zum Aufruf des Makros:
a) ALT-F8 - "Doppelte_Zellen_markieren" anklicken
b) mit der Toolbox einen Button anlegen und diesem das Makro zuordnen.

Gruß
cmkatz

• Zellen in Spalte A vergleichen und bei Übereinstimmung Werte aus Spalte B addieren
• Daten vergleichen und kopieren
• Name aus Spalte A übernehmen und in Spalte B einer KundenNr. zuordnen die in Spalte A steht
• Werte einer Spalte vergleichen
• Zellen in eine Spalte vergleichen, und bei gleiche Werte die Zeilen der dazugehörige spalte zusammentun