habe schätzungsweise ein kleines Problem. Ich möchte eine Spalte A per Makro so formatieren, dass bei Eingabe eines Wertes in A sofort auf eine Dublette hingewiesen wird.
Wenn ich über Gültigkeit / Benutzerdefiniert / =ZÄHLENWENN(A:A;A1)=1 eingebe funktioniert dies wunderbar. Leider aber nicht per Makro. Dies siht wie folgt aus:
Columns("A:A").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=ZÄHLENWENN(A:A;A1)=1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Hinweis"
.InputMessage = ""
.ErrorMessage = "Dieser Barcode wurde schon eingelesen !"
.ShowInput = True
.ShowError = True
End With
bei dem Punkt .AddType....... bekomme ich eine Fehlermeldung.
Kann mir jemand helfen?
Gruß Jürgen