Makro wird nicht ausgeführt
11.05.2004 18:13:56
Olli
ich sitze nun schon Stunden vor einem Problem, das ich mir nicht erklären kann:
Ich habe ein Makro geschrieben, das Sprünge von Zelle zu Zelle innerhalb einer Tabelle A10 bis I19 betrifft:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 And Target.Column <> 6 And Target.Column <> 8 And Target.Column <> 9 Then Exit Sub
Debug.Print Target.Column
If Target.Row < 10 Or Target.Row > 19 Then Exit Sub
Debug.Print Target.Row
If Target.Column = 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
In einem leeren Tabellenblatt klappt alles. Wenn ich es aber in eine andere Tabelle einfüge, wird das Makro nicht ausgeführt; der Cursor springt immer zur nächsten Zelle. Vielleicht hat jemand eine Idee, wo ich noch nach dem Fehler suchen könnte?
Danke an alle!
Olli S.