Gültigkeitsprüfung per VBA
07.10.2015 10:05:07
Born
ich habe folgendes Problem:
In einer Prozedur nutze ich folgenden Code, um eine Gültigkeitsprüfung in Excel zu definieren. Das funktioniert auch.
With Range(Cells(i, m_erfülltSpalte), Cells(i, m_NichtErfülltSpalte))
.Validation.Delete
.Validation.Add (Type:=xlValidateList, Formula1:="x")
.Validation.IgnoreBlank = True
.Validation.InCellDropdown = True
.Validation.ErrorMessage = "In den Spalten ""Erfüllt"" und ""Nicht erfüllt"" ist nur ein ""x"" zulässig."
.FormatConditions.Delete
End With
In derselben Prozedur möchte ich eine weitere Gültigkeitsprüfung definieren:
With Cells("M7").Validation
.Add(xlValidateCustom, xlValidAlertInformation, xlBetween, "=UND(J7=""x"";M7="""")")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Hinweis"
.InputMessage = ""
.ErrorMessage = "Wenn ""Erfüllt"" angekreuzt wurde, sind Kommentare nicht zulässig."
.ShowInput = True
.ShowError = True
End With
Hierbei erhalte ich immer eine Fehlermeldung bei dem Add-Befehl.
Was mache ich falsch? Hast jemand eine Idee?
Viele Grüße,
M. Born