würde geren folgendes mit einem code lösen
wenn meine aktive zelle im bereich zwischen a1 umd e10 dann soll
in die zelle a11 die ziffer 1 geschrieben werden.
danke
Option Explicit
Public Sub test()
Range("A11") = (Not Intersect(ActiveCell, Range("a1:e11")) Is Nothing) * -1
End Sub
Range("A11") = (Not Intersect(ActiveCell, Range("a1:e11")) Is Nothing) * -(ActiveCell.Row)