Diese verflixte MsgBox

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 3 Then Exit Sub '(Hier steckt der Wurm drin!)
'cancel = true unterdrückt den Editmodus der Zelle
Cancel = True
Set c = Worksheets(2).Range("c1:c1000").Find(Cells(Target.Row, Target.Column))
Text = ""
'nachstehend die Zeilenanzahl der MsgBox
For x = 1 To 4
If Trim(Worksheets(2).Cells(c.Row + x, c.Column)) = "" Then Exit For
Text = Text & vbLf & Worksheets(2).Cells(c.Row + x, c.Column)
Next x
a = MsgBox(Text, vbOKOnly, Worksheets(2).Cells(c.Row, c.Column))
End Sub