Hi,
Ich kriege "Runtime error 2147417848 (80010108)Automation error: The object invoked has disconnected from its clients" wenn ich folgenden Code ausführe (3.Zeile):
With Cells(Target.Row, "G").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Option1,Option2,Option3"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Irgendwelche Ideen? Habe mich schon durchs ganze Netz gegoogled..