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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen