Moin,

ich möchte gerne, dass sich nach einer IF-Abfrage die Formate in der angefragten Zeile ändern, dies soll dann parallel auf zwei Tabellenblättern sich ändern.

Bei mir funktioniert dieses nur auf dem ersten Blatt ("EBewertung"), für das andere Blatt bekomme ich die Fehlermeldung "Lautzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler". Ich habe schon verschiedene Wege versucht das zu beheben, aber funktioniert hat das nicht. Ich glaube er stört sich an dem ersten "With".

Kann mir jemand weiterhelfen?

Vielen Dank im Voraus.

    With Worksheets("Ebewertung")
    Ende = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 3 To Ende
            If Worksheets("Ebewertung").Cells(i, 6).Value = "X" Then
               With Worksheets("Ebewertung").Range(Cells(i, 3), Cells(i, 4)).Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="1,2,3,4"
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = True
                End With
'                           Erzeugt ein DropDown Menü, wenn in Spalte "K" ein "X" ist
            Else
                With Worksheets("Ebewertung").Range(Cells(i, 1), Cells(i, 5)).Interior
                    .ColorIndex = 41
                    .Pattern = xlSolid
                End With
                With Worksheets("Ebewertung").Range(Cells(i, 1), Cells(i, 5)).Validation
                    .Delete
                     .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
                    :=xlBetween
                    .IgnoreBlank = True
                    .InCellDropdown = True
                    .ShowInput = True
                    .ShowError = True
                End With
                With Worksheets("Risikoauswertung").Range(Cells(i, 1), Cells(i, 5)).Interior
                    .ColorIndex = 41
                    .Pattern = xlSolid
                End With
            End If
        Next
   End With