Gültigkeitsprüfung versagt nach ctrl+c => ctrl+v
18.02.2004 16:29:58
Reiner
ich habe im Excelsheet Datenfelder mit Gültigkeitprüfungen versehen.
Nach jeder Eingabe werden zur Sicherheit die Definitionen neu gesetzt.(s.u.)
Private Sub Worksheet_Change(ByVal Target As Range)
'Application.EnableEvents = False
With ThisWorkbook.Sheets("IST").Range(Cells(10, 5), Cells(123,5)).Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="1", Formula2:="128"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Fehlerhafte CPU-Anzahl"
.InputMessage = ""
.ErrorMessage = "nur geradzahlige Werte zwischen 1 - 128 erlaubt"
.ShowInput = False
.ShowError = True
End With
~
Wenn nun irgendein Bereich im Sheet kopiert und auf die Gültigkeitsfelder eingefügt wird, stimmt zwar die Gültigkeitsregel, aber eindeutige Abweichungen
werden nicht gemeldet.
Wer weiß, wie die erneute Prüfung nach Einfügen möglich ist.
Danke Reiner