BAK - Formel og resultat i samme celle

Linien              Set rCalcCell = Range("D2")
kan jo ændres til    Set rCalcCell = Range("G14:P28")
og så kan det testes.

Hvordan vil man kunne identificere hvad der skal være den sidste celle istedet for P28?
Hvis man kan finde cellen, så kan man også lave det.

Kan jeg så flette nedenstående ind???

Bare på en celle istedet


Dim LastRow As Range
    Set LastRow = Columns(1).Find("km i alt", LookIn:=xlValues, lookat:=xlWhole)
   
    'Check if target within allowed range
    If Not Intersect(Target, Range("H14:P" & LastRow.Row - 1)) Is Nothing Then

Har du prøvet?? Det er da et okay bud

Hvis nu det der "km i alt" altid er det der står nederst i kolonne A, så kan dette også testes:
    Dim lLastRow As Long
    lLastRow = Me.Cells(Me.Rows.Count, 1).End(xlUp).Row - 1

    'Check if target within allowed range
    If Not Intersect(Target, Range("H14:P" & Cstr(lLastRow.Row))) Is Nothing Then

Løste det problematikken for dig?

Ja, mit bud løste probelmatikken.
"Km ialt" står ikke nederste kolonnen, i mit tilfælde.
Så dit bud kun ikke bruges, denne gang

Men tak for hjælpen


Pejsen

:-)