Wenn Wert in Zelle X, dann Ausgabe in Zelle Y (VBA)

[diving_excel]

Hallo!
Ich habe eine Frage zum Überwachen einer Zelle per VBA:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$E$3" Then
    If Range("E3").Value = "Hans Müller" Then
       Range("E5").Value = "0172 - 123456789"
    End If
End If

End Sub

Ich möchte dass jedes Mal wenn ich den Namen "Hans Müller" in Zelle E3 eingebe, Excel mir automatisch die Telefonnummer in E5 zurück gibt. Eine Formel kann ich nicht verwenden, da gewährleistet sein soll, dass man die Zelle (also dann auch die Formel) überschreiben kann.


Was mache ich falsch? Excel schreibt mir die zugehörige Nummer nur dann in E5, wenn ich Zelle E3 nach Eingabe wieder mit der Maus anklicke.
Geht auch eine andere Lösung als die Überwachung mit 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

?


Danke für den Input!
Gruß

[Matthias84]

Hallo,

wechsel das Event in

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

dann sollte es funktionieren. SelectionChange spricht nur auf den Wechsel der Zelle an, während Change auf Eingaben in einer Zelle reagiert.

[diving_excel]

Daran lag es, danke auch für die Erklärung!

Gruß!