Spalte auf Einmaligkeit der Werte prüfen
02.08.2005 08:29:53
David
Ich habe folgendes Problem: Ich muss in einer Tabelle per VBA einen Teil der Spalte C auf Einmaligkeit prüfen. Welchen Teil finde ich raus, indem ich nach Spalte A sortiere und dort alle Einträge unter dem Wert 5320704 (sind nur Zahlenwerte enthalten) in ein Range-Objekt schreibe.
Mein Problem ist nun, wie kann ich diese Range (die etwa "A1:A570" ist, ist aber Variabel) auf die Spalte C umlegen (also beim Beispiel auf "C1:C570), und wie kann ich da die Zellen darin auf Einmaligkeit prüfen?
Die Zellen haben Buchstabenwerte wie "SKKT", aber die dürfen nur jeweils einmal vorkommen, deshalb möchte ich die, die doppelt sind, rot markieren.
Kann mir da Jemand helfen? Der Code, den ich bereits habe:
Sub CheckSingleness()
Cells.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange.Columns(1).Cells
If Cell.Value >= 5320704 Then
Exit For
End If
Next
' In Cell ist dann die Range
End Sub
Danke schonmal
PS: Toll wäre es, wenn mir noch Jemand sagen könnte, wie ich dann auch automatisch eine MsgBox anzeigen lassen könnte, wenn jemand einen neuen Eintrag erstellt, der aber schon Vorhanden ist.