bin echt langsam am Verzweifeln. Vielleicht könnt Ihr mir besser helfen, wenn ich meine Frage anders formuliere.
Ich möchte mit VBA eine benutzerdefinierte Datenüberprüfung in Zelle
"E9"
schreiben, die ich dann mit einer Schleife nach unten
kopieren kann. Das funktioniert soweit ganz gut, wenn ich einfache Formeln benutze.
In
besagter Zelle
"E9"
sollen Zahlen zwischen 500 und 1000 eingegeben werden können, aber nur wenn Zelle
"L9"
leer ist.
Ich bin mir fast zu 100% sicher, das es nur an einem Syntaxfehler liegt, den ich in der Codezeile
<strong>xlBetween, Formula1:="=and..................................................... eingebaut habe.</strong>
Dim
rng_Zelle
As
Range
Dim
int_Zeilenzaehler as
Integer
Set
rng_Zelle = Cells(int_Zeilenzaehler, 5)
With
rng_Zelle.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=
"=and("
& rng_Zelle.Address(0, 0) &
">=500,"
& rng_Zelle.Address(0, 0) &
"<=1000"
,isblank(
" & rng_Zelle.Address(0, 7))"
.IgnoreBlank =
True
.InCellDropdown =
True
.InputTitle =
""
.ErrorTitle =
""
.InputMessage =
""
.ErrorMessage =
""
.ShowInput =
True
.ShowError =
True
End
With
<strong>Bitte dringendst um Hilfe</strong>
Gruß von der verzweifelten Danni :)