Doppelklickfunktion mit Bezug auf anderes Sheet
14.05.2008 20:16:40
Konni
nachstehenden Code habe ich von einem hilfsbereiten Forumsmitglied:
If Target.Column <> 5 Or Target.Row < 14 Then Exit Sub
Cancel = True 'cancel = true unterdrückt den Editmodus der Zelle
Set c = Worksheets(2).Range("d12:d1000").Find(Cells(Target.Row, Target.Column))
Text = ""
For x = 1 To 5
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))
Dieser Code bewirkt, dass wenn in einem anderen Worksheet (Hier Worksheet 4, Zelle in Spalte E) auf eine Zelle doppel-geklickt wird, der Inhalt der betreffenden Zelle in Worksheet 2 (Zelle in Spalte D) angezeigt wird. - Funzt tadellos!
Nun möchte ich auch in Worksheet 4 in den Spalten Z und AA den gleichen Effekt haben, mit Bezug auf Worksheet 2 zu den Zellinhalten in den Spalten O und P.
Aber, so weit reichen meine Kenntnisse nicht, um dies umsetzen zu können. Daher bin ich auf die Hilfe des Forums angewiesen.
Vielen Dank für die Unterstützung und Gruß: Konni