Address +/-

Hallo,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim bolNoChange As Boolean
Dim a_x As Variant
Dim e_x As Variant
a_x = Cells.Find("Anfang-x", lookat:=xlPart).OffSet(1).Address 'hier benötige ich  _
eigentlich die ZELLE darunter
e_x = Cells.Find("Ende-x", lookat:=xlPart).Offset(-1).Address 'hier benötige ich  _
eigentlich die ZELLE darüber
If Not Intersect(Target, Range(a_x & ":" & e_x)) Is Nothing Then
bolNoChange = True
Target = IIf(Target = "x", "", "x")
Cancel = True
bolNoChange = False
End If
End Sub

Gruß aus’m Pott
Udo

Hallo Udo,
da tüftle ich schon eine kleine Ewigkeit daran und du schüttelst die Lösung in Sekunden aus dem Ärmel.
Vielen Dank - funktioniert perfekt !
MfG Dirk