Diese verflixte MsgBox
02.01.2006 19:47:38
Konni
ich meiner Tabelle soll die MsgBox nur in einer Spalte erscheinen. Im nachstehenden Code habe ich schon einen Vorschlag eines Forumsmitgliedes eingebaut (hier steckt der Wurm drin).
Leider läuft dann granichts mehr. Ohne die Codezeile läuft alles einwandfrei. Weiß jemand Rat?
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
Vielen Dank für Euer Bemühen
Viele Grüße
Konni