So das sich aus der Spalte und Zeile ein Fadenkreuz ergibt und die gewünschte Zelle im Target ist.
Beispiel:
https://www.herber.de/bbs/user/148462.xls
Sub Fadenkreuz()
Dim rngZeile As Range
Set rngZeile = Columns(1).Find(Range("Q2"), lookat:=xlWhole)
If Not rngZeile Is Nothing Then
With ActiveSheet.Shapes("Rounded Rectangle 1")
.Top = rngZeile.Top
.Left = Columns(1).Left
End With
End If
If IsNumeric(Range("S2")) Then
If Range("S2")