Zelleninhalt in Zelleninfo, jedoch pro Zeile?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If iVerfolgung Then ufVerfolgung.Aktualisieren  'wird für die Lupe benötigt
Dim objShape As Object, lngLast As Long, strComment As String
If Not Intersect(Target, Union(Range("AF4:AF" & Rows.Count), Range("AU4:AU" & Rows.Count))) Is   _
_
Nothing Then
If Target.Count = 1 Then
On Error GoTo NoShape
HasShape:
Set objShape = Me.Shapes("txtComment")
With objShape
.Visible = False
.TextFrame.Characters.text = ""
If Target.Count = 1 Then
strComment = Target.text
If strComment  "" Then
'strComment = breakText(strComment, CInt(Target.ColumnWidth * 1.4))
strComment = breakText(strComment, CInt(Target.ColumnWidth * 5))
.TextFrame.Characters.text = strComment
.Top = Target.Top + 5
.Left = Target.Left + Target.Width + 5
.Visible = True
End If
End If
End With
End If
Else
On Error Resume Next
Me.Shapes("txtComment").Visible = False
End If
Set objShape = Nothing
Exit Sub
NoShape:
If Err.Number = -2147024809 Then
If makeComment Then
Resume HasShape
Else
Exit Sub
End If
End If
End Sub