Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Für ausgewählten Bereich per VBA Gültigkeitskriterien setzen

Gruppe

Gültigkeit

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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

    

Beiträge aus dem Excel-Forum zu den Themen Feature und Gültigkeit