Gruppe
Feature
Problem
Über Schaltflächenklick sollen in Spalte A für den ausgewählten Bereich Gültigkeitsbedingungen so gesetzt werden, dass nur Zahlen > 0 und bis einer Nachkommastelle akzeptiert werden.
StandardModule: Modul1
Sub SetValidation()
Dim sStart As String
sStart = Selection.Cells(1).Address(False, False)
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"=AND(ROUND(MOD(" & sStart & ",0.1),12)=0," & sStart & ">0)"
.IgnoreBlank = True
.InCellDropdown = True
End With
End Sub