Microsoft Excel

Herbers Excel/VBA-Archiv

Laufzeitfehler 438 bei Datengültigkeit


Betrifft: Laufzeitfehler 438 bei Datengültigkeit
von: Georg
Geschrieben am: 12.12.2018 10:27:00

Liebe Mitglieder, ich bekomme den Laufzeitfehler bei
.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

  

Betrifft: Vorschlag
von: Beverly
Geschrieben am: 12.12.2018 10:34:54

Hi Georg,

        With Datei2019.Worksheets(i)
            With .Cells(24, 3).Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                    Operator:=xlBetween, Formula1:="Ja,Nein"
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = True
            End With
        End With

GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Vorschlag: DANKE..
von: Georg
Geschrieben am: 12.12.2018 11:17:22

..funktioniert einwandfrei. Grüße Georg