wenn in Zelle a1 sich der Wert verändert, möchte ich das in B1 eine 1 erscheint.
Wie kann man das machen?
Wer kann mir helfen.
Vielen Dank für Deinen Einsatz.
Gruß
Alex
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Range("B1") = 1
Application.EnableEvents = True
Else
End If
End Sub
gruß Chris
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("B1") = 1
End If
End Sub
Allerdings: Die 1 in B1 kommt bei der ersten Änderung. Bei weiteren Änderungen in A1 bleibt die 1 in B1 konstant. Willst Du dies so haben ?
Gruss
erwin