Bereich erweitern
Stefanglander
ob jemand so nett ist mir zu zeigen wie ich das Makro auf die Spalten 3 und 7 erweitern kann
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
Stefan