So bekomme ich aber zu Recht die Meldung:
Mehrdeutiger Name: Worksheet_Change
Wie stelle ich es also an?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$16" Then Exit Sub
If UCase(Target) = UCase(Cells(1, 28)) Then
Application.Wait (Now + TimeValue("0:00:03"))
Sheets("Aufnahme").Activate
End If
End Sub
______________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E3") = "Termin" Then ActiveWindow.Zoom = 50
If Range("E3") = "" Then ActiveWindow.Zoom = 100
End Sub