Zelle per Mausklick füllen (Erweitern)
22.11.2004 20:57:13
Sebastian
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E5:AA5")) Is Nothing Then
Target = Target + 1
[A2].Select
End If
End Sub