Nächste Zelle / schaffe es nicht
01.10.2002 21:44:48
Thomas
ich habe folgende Zeile
Private Sub Worksheet_change(ByVal Target As Range)
If Target.Row = 5 Then Cells(1, Target.Column + 1).Select
End Sub
Was muß ich einfügen, dass, wenn díe Zelle D1 erreicht ist, ich nichts mehr eingeben kann ?
Vielen Dank
Thomas