wie fülle ich Zellen automatisch basierend auf Bedingungen aus?

Question

Ich muss eine Zelle automatisch ausfüllen, wenn zwei Zellen bestimmte Werte enthalten, und es dann automatisch ausführen. Das habe ich bisher:

Private Sub Worksheet_Change(ByVal Target As Range)
     If target.Cells(5, "B").Value = "Secured" And target.Cells(6, "B").Value = "Amendment" Then
        Cells(10, "B") = "T2 - Medium Risk"
    End If

End Sub 

Die if-Anweisung wäre, =IF(AND(D34="Secured",D35="Amendment"),"yes","")aber das "Ja" muss in einer anderen Zelle stehen

Answer 1

Das ist, was Sie suchen

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, Range("B5:B6")) Is Nothing Then
        If Cells(5, 2) = "Secured" And Cells(6, 2) = "Amendment" Then
            Cells(10, 2) = "T2 - Medium Risk"
        End If
    End If
End Sub

Sie möchten, dass es ausgelöst wird, wenn die Änderung in diesen beiden Zellen erfolgt. Wenn sie übereinstimmen, füllen Sie eine andere Zelle aus. Wenn Sie es löschen möchten, können Sie das auch tun.