Skjult formel i en celle

Du kan ikke skrive i en celle med en formel uden at slette formlen, men det kan løses med VBA, hvis du er interesseret i det.

F.eks.:
Eller:

store-morten, din makro lægger 4 til A1 hver gang der skiftes celle.

Prøv i stedet med

Dim oldCellAddress As Long
Dim oldCellValue As Long
Private Sub Worksheet_Change(ByVal Target As Range)
    oldCellValue = 0
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Application.EnableEvents = False
        oldCellValue = Target.Value
        Target.Value = 4 + oldCellValue
        Application.EnableEvents = True
    End If
End Sub

Ups...
Eller:

Mange tak begge løsning er kan bruges takker

Velbekomme 😃

Velbekomme 😃

Hvis jeg nu vil have 3 cell mere der skal ligge 4 til det tal man skriver hvordan vil det så se ud?

Nu skriver du ikke hvor du vlil lægge 4 til eller hvor du vil lægge 3 til, men noget i stil med dette vil kunne bruges. For A1 bliver der lagt 4 til og for B1:B3 bliver der lagt 3 til.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1,B1:B3")) Is Nothing Then
        Application.EnableEvents = False
        If Target.Column = 1 Then
        Target = Target + 4
        Else
        Target = Target + 3
        End If
        Application.EnableEvents = True
    End If
End Sub