Code soll nicht bei Zeilen 1 - 13 funktionieren
01.02.2006 18:15:20
Konni
hab mal wieder ein kleines Problem.
In meiner Mappe wird in Tab2, Spalte E bezug auf Tab1, Spalte D genommen.
Zur Erklärung:
In Tab1 stehen in Spalte D Überschriften und unter diesen die dazugehörigen Kommentare.
Die Überschriften werden in Tab2, Spalte E angezeigt, und zwar von Zeile 1 bis Zeile 1000.
Wenn man auf die Überschriften in Tab2 doppelklickt, erscheint der jeweilige Kommentar dazu aus Tab1 in einer MsgBox. - Funktioniert tadellos.
Frage: Wie muss der Code geändert werden, damit der Doppelklick in den Zeilen 1 - 13 der Spalte E in Tab2 nicht funktioniert?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 5 Then Exit Sub
Cancel = True 'cancel = true unterdrückt den Editmodus der Zelle
Set c = Worksheets(1).Range("d12:d1000").Find(Cells(Target.Row, Target.Column))
Text = ""
For x = 1 To 5
If Trim(Worksheets(1).Cells(c.Row + x, c.Column)) = "" Then Exit For
Text = Text & vbLf & Worksheets(1).Cells(c.Row + x, c.Column)
Next x
A = MsgBox(Text, vbOKOnly, Worksheets(1).Cells(c.Row, c.Column))
End Sub
Für jede Anwort mit Lösung dankbar
Grüße
Konni
P.S. Ich glaube, den Code habe ich von Ramses. An dieser Stelle nochmals Danke. Die Funktion ruft allgemeine Verwunderung hervor!
Anzeige