Liebes Forum,
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
xlBetween, Formula1:="=and..................................................... eingebaut habe.
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
Bitte dringendst um Hilfe
Gruß von der verzweifelten Danni :)
|