Makro wird nicht ausgeführt
12.05.2004 11:55:24
Olli
(https://www.herber.de/bbs/user/6251.xls) aber nicht. Habe schon Stunden gesucht und versucht und keine Lösung, hoffentlich hat jemand eine Idee!!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 10 Or Target.Row > 19 Then Exit Sub
If Target.Column = 9 And Target.Row > 9 And Target.Row < 19 Then
Cells(Target.Row + 1, 2).Select
End If
If Target.Column = 6 Then
Cells(Target.Row, 8).Select
End If
If Target.Column = 2 And Target.Row = 10 Then
Cells(Target.Row, 6).Select
End If
End Sub
Anzeige