Gültigkeit mit VBA
03.02.2004 11:16:14
junny
in einem Auto open steht bei mir folgendes
WertderReklamation = InputBox("Wert der Reklamation: ")
Range("B27") = WertderReklamation
Wie kann ich nun folgende Gültigkeit verbinden?
(hab ich mit Recorder aufgezeichnet)
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="0", Formula2:="99999"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Betrag eingeben!"
.InputMessage = ""
.ErrorMessage = "Kein Text, Kein Zeich oder dgl."
.ShowInput = True
.ShowError = True
End With
Danke schon mal
volker