ich möchte gerne folgende Funktion in eine andere Zelle auslagern.
WENN((A1)=monatlich; dann soll D1 und E1 gleich B1 sein ;"")
Kann mir jemand helfen?
MfG, Synami
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target = "monatlich" Then
Target.Range("d1:e1") = Target.Range("b1")
Else
Target.Range("d1:e1") = ""
End If
End If
End Sub