On Error Resume Next
10.01.2006 15:21:21
Ernst
Habe ein Problem mit dem untenstehenden Code.
Der Code funktioniert, jedoch wenn in der Spalte 2 die Zelle nach unten Kopiert wird gibt es ein Problem. Wie müsste der Fehlerabfang korrekt geschrieben werden um dieses Problem zu verhindern?
Bitte um Fehlerbehebung.
Mfg
Ernst Dunkel
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
If Target.Column = 2 And Target.Row > 10 And Target.Row < 20 Then
If Target = "8" Then Target = "N"
If Target = "2" Then Target = "S"
If Target = "4" Then Target = "W"
If Target = "6" Then Target = "E"
End If
End Sub