Was heißt "Geht auch nicht." genau?
Hast du denn den vorher genannten Code mal ausprobiert?
With Worksheets("Tabelle1").Range("E9:E40").Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
Formula1:="=AND(E9>=500,E9<=2359,ISBLANK(L9))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Der sollte nämlich ohne Murren durchlaufen. Wenn nicht, wäre die Fehlermeldung und die Zeile in der der Fehler kommt wichtig!
|