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!