VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

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

Gruppe

Feature

Bereich

Gültigkeit

Thema

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

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