Køre en makro "hvis"

Du kan IKKE afvikle en makro fra en formel.

Du kan indsætte dags dato, som fast dato, ved at taste Ctrl-semikolon.

Kan du ikke sætte den fiksede dato som f.eks. her:

=HVIS(A159<>0;"01-01-2016";"")

Ellers med VBA

ebea
Jo, det kunne jeg god, men da det skal være den dato hvor der bliver skrevet i Celle A159, og den ikke skal ændre sig næste dag jeg åbner arket duer det ikke.
Jeg kan desværre ikke VBA

ebea
Jo, det kunne jeg godt, men da det skal være den dato hvor der bliver skrevet i Celle A159, og den ikke skal ændre sig næste dag jeg åbner arket duer det ikke.
Jeg kan desværre ikke VBA

erikJuul

Ok tak, så fik jeg da det på plads og behøver ikke at gå videre af den vej.
men....?

Men måske kunne du køre en makro, som aktiveres, når du taster noget ind i A159. Det er jo den celle formelen tester på.

Hej
- Er det ikke lige denne makro du mangler:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim dDato As Date
  dDato = Date 
  If Not Intersect(Target, Range("A1")) Is Nothing Then
    Range("A5") = dDato
  End If
End Sub

Prøv og sæt den ind i dit ark og tilret den.

svia

mange tak, ikke helt det jeg søger, men bestemt brugbart.

svia
skriv et svar så jeg kan give dig dine point :-)

Jeg forstod dit spørgsmål således at du skriver i celle A159, og din HVIS-kode står i en anden celle, - er det korrekt forstået.

Jeg går ud fra at du fik kopieret min kode ind på dit ark og tilrettet den?

Jeg lægger lige et nyt forslag til kode som jeg synes burde fungere bedre:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim dDato As Date
  dDato = Date
  dDato = Format(dDato, dd - mm - åååå)
  If Not Intersect(Target, Range("A1")) Is Nothing Then
    If Range("A1").Value = "" Then
      Range("A5").Value = ""
    Else
      Range("A5") = dDato
    End If
  End If
End Sub