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
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
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
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
.
Das Archiv des Excel-Forums
