Formler der blev væk

på hvilken fane er det at formlerne er væk, på hofkalender er der en formel iD1 i N1 er der bare en tekst

Hej Bjarnehansen

Det er i celle N1 i arket Hofkalender.
Den formel jeg har indtastet.
="Husk at sende til den "&tekst(c1;"dd mmmm åååå")
Datoen skal gerne findes i celle c1, det gør den måske ikke helt.
Men formlen kan jeg ikke se i N1, jeg ved ikke om man kan slå noget fra / til så det kun er værdigen der fremkommer i cellen?

KW

Ja og det er det der er mærkeligt jeg har tastet en formel i celle n1

Klaus

Du kan vel bare indtaste formlen igen, kan du ikke?

https://www.dropbox.com/scl/fi/ie92kojirdslebcitl1nk/Kalender-hoffet-r-efter-r.xlsm?rlkey=bpgfu24vqmbsmsu3ertgj45uh&st=l2ykb2sp&dl=0

Du skal selvfølgelig huske at gemme filen efter at du har indtastet formlen.

Hej Hans jeg har prøvet men det er som om at rækker 1 er forhekset.
Vis jeg skriver formlen og gemmer. Så når jeg åbner igen er den væk og der står kun teksten. KW

Jeg kan ikke genskabe det problem du beskriver på min pc, men jeg er temmelig sikker på, at "hekseriet" har at gøre med en eller flere af de mange makroer, der findes i filen, og som jeg i øvrigt har svært ved at overskue, hvad gør. Er de absolut nødvendige allesammen? I øvrigt fandt jeg også ud af, at det problem du havde med kanterne også skyldtes en af de mange "hekse"-makroer (Change Event makroer). Sådan noget som for eksempel det kode du har til ark 4 (Hofkalender) er måske smart, men er det virkelig nødvendigt?
Jeg er ikke i stand til detaljeret at analysere dine makroer, men er, som sagt, ret sikker på, at det er her problemet findes.

Jeg har i den fil der linkes til nederst "Commented out this block of code", hvorefter det for mig ser ud til at virke.

'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'    If Selection.Count = 1 Then
'        If Not Intersect(Target, Range("k2:k154")) Is Nothing Then
'            Range("y16").Value = Target.Offset(0, -10).Value
'
'
'            Target.Value = "S"
'        End If
'
'        'Call Send_mail
'
'        If Not Intersect(Target, Range("l2:l154")) Is Nothing Then
'            Range("aa16").Value = Target.Offset(0, -11).Value
'
'
'            Target.Value = "G"
'        End If
'    End If
'
'  ' Call Send_mail1
'
'End Sub

https://www.dropbox.com/scl/fi/6c5yvnb00j8tbmm37thdp/Kalender-hoffet-r-efter-r_2.xlsm?rlkey=6ixt0bd48qsgt52arwogo5zzn&st=cwnidewo&dl=0

Jeg kikke på det når jeg er fremme. På forhånd tak

Jeg mener du vil være langt bedre hjulpet, hvis du manuelt indtaster S eller G i kolonnerne K og L når det er nødvendigt i stedet for at være afhængig af den forfærdelige macro.

Ok jeg ser