Nur eindeutige Werte in Matrix zulassen?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 97
nach unten

Betrifft: Nur eindeutige Werte in Matrix zulassen?
von: Frank
Geschrieben am: 08.05.2002 - 13:35:54

Hallo,

wie kann ich in einer Matrix A1:C10 überprüfen ob jeder dort eingetragene Wert auch wirklich nur einmal vorkommt?
Falls ein Wert zweimal eingetragen wird bzw. vorkommt sollte evtl. eine Meldung erscheinen wie z. B. "wert bereits vorhanden".

Gruß

Frank

nach oben   nach unten

Ergänzung
von: Frank
Geschrieben am: 08.05.2002 - 13:51:53

Ist das ganze auch möglich wenn in der Matrix nur Text steht?

Danke


nach oben   nach unten

Re: Ergänzung
von: mathias r.
Geschrieben am: 08.05.2002 - 14:49:00

Füge diesen Code in das "Klassenmodul" der jeweiligen Tabelle ein.


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rngFound As Range
  If Intersect(Target, Range("A1:C10")).Cells.Count > 0 Then
    Set rngFound = Range("A1:C10").Find(Target, Target, xlWhole)
    If rngFound.Address <> Target.Address Then
      MsgBox "Wert bereits vorhanden !", vbExclamation
      Application.Undo
    End If
  End If
End Sub

nach oben   nach unten

Auch Ergänzung
von: mathias r.
Geschrieben am: 08.05.2002 - 14:52:14

So besser:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rngFound As Range
Dim rngSchnittmenge As Range
  Set rngSchnittmenge = Intersect(Target, Range("A1:C10"))
  If Not rngSchnittmenge Is Nothing Then
    Set rngFound = Range("A1:C10").Find(Target, Target, xlWhole)
    If rngFound.Address <> Target.Address Then
      MsgBox "Wert bereits vorhanden !", vbExclamation
    End If
  End If
End Sub

nach oben   nach unten

Klappt wunderbar - Dankeschön
von: Frank
Geschrieben am: 08.05.2002 - 15:36:49

.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Nur eindeutige Werte in Matrix zulassen?"