Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "D7
" Then SendKeys "%{DOWN}"
End Sub
Das funktioniert bei mir leider nicht. Wahrscheinlich, weil man erst ein Klassenmodul definieren muss. Das kann ich aber nicht, würde mich über eine Schritt-für-Schritt-Anleitung sehr freuen. Danke euch schon jetzt!