brauche einen code der mir folgendes ausführt
wenn sich die aktive zelle in der spalte a befinden so will ich in die zelle d1 wechseln
Danke
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
On Error GoTo ERRH
Application.EnableEvents = False
[d1].Select
ERRH:
Application.EnableEvents = True
End Sub