Bereich erweitern

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column  1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Target = "j" Then
Target = "Ja"
ElseIf Target = "n" Then
Target = "Nein"
ElseIf Target = "h" Then
Target = "Hilfe"
End If
End Sub