Fehlermeldung durch Offset -1 in Spalte A
21.10.2004 22:30:27
Heim
wenn der Wert links vom Curser nun nummerisch ist wird die linke und die rechte Zelle vom Curser aus gesehen angezeigt. (und Feld B,C,E)
Wenn ich nun in der Spalte A schreibe wird eine Störung (Laufzeitfehler) gebracht.
Wie kann ich Störungen die durch den Offset -1 auf der Spalte A erzeugt werden unterdrücken.
lg
-----------------
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Row < 10 Or Target.Row > 33 Then Exit Sub
Range("A34").Value = Range("B" & Target.Row).Value
Range("C34").Value = Range("C" & Target.Row).Value
Range("E34").Value = Range("E" & Target.Row).Value
If IsNumeric(Target.Offset(0, -1).Value) Then
Range("I34").Value = Target.Offset(0, -1).Value & " " & Target.Offset(0, 1).Value
Else
Application.EnableEvents = False 'Ereignis AUS
Range("I34").Value = ""
Application.EnableEvents = True 'Ereignis EIN
End If
End Sub