Laufzeitfehler 438 bei Datengültigkeit
12.12.2018 10:27:00
Georg
.cells(24, 3).Validation
Wie kann ich C24 mit einer Datengültigkeit belegen? DANKE Georg
Sub Datengültigkeit()
Datei2019.Activate
WS_Count = Datei2019.Worksheets.Count
'Befüllen Datengültigkeit
For i = 4 To WS_Count - 2
With Datei2019.Worksheets(i)
.Cells(24, 3).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=JaNein"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Next i
Application.Calculation = xlCalculationAutomatic
End Sub