Hallo zusammen.
Ich komme leider beim meinem Problem nicht alleine weiter.
In meiner Tabelle werden in Spalte 2 und Zeile 4 Zeichen angezeigt, sobald ein Bereich selektiert wird. Die Zeichen sollen sich allerdings nur auf die Range J7:OJ57 beschränken, auch wenn die Selektion über die Range hinausgeht.
Denn jetzt, wenn ich z.B. eine Spalte markiere, schreibt der Code mir alle Zeichen in jede Zeile der Spalte, was fatal ist.
Kann ein Profi kurz helfen? :)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("J6:OJ57")) Is Nothing Then
Dim cell As Range
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("B6:B57").ClearContents
Range("J4:OJ4").ClearContents
For Each cell In selection
With cell
Range(cell(.Row, 2), Cells(.Row, 2)) = ">>"
Range(cell(4, .Column), Cells(4, .Column)) = "V"
End With
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End If
End Sub