Falsche Eingabe
15.08.2003 16:41:52
Erich
Vieleicht könnt ihr mir helfen.
wie kann man diesen Code unterbrechen wenn man eine verkehrte Zahl eingibt
oder entf. drückt?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Rows(Target.Row).Copy
Rows(Target.Row + 2).Cells.Insert
'dann die Zellen ohne Formeln löschen
Rows(Target.Row + 2).ClearContents
'Target.Select
End Sub
Danke