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