CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

simulu Juniormester

08. juni 2013 - 15:27 Der er 8 kommentarer og
1 løsning

Fjerne cellemarkering ved overskrivning

Hej

Jeg har nogle jobs med tilhørende datoer fra 2012 i celle F7:F17.

Datoerne i F7:F17 skal jeg overskrive i løbet af 2013.
For overskuelighedens skyld kunne jeg tænke mig, at dem, jeg IKKE har overskrevet endnu, var markeret f.eks. med rødt eller med fed eller cellen var farvet.
Dvs. når jeg så overskriver værdien i cellen manuelt, forsvinder markeringen af sig selv.

Kan dette lade sig gøre?

Mvh Jan Andreasen (Excel 2007)

Synes godt om

jens48 Ekspert

08. juni 2013 - 15:52 #1

Det kan f.eks. gøres med denne makro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F7:F17")) Is Nothing Then
Selection.Font.ColorIndex = 0
Selection.Font.Bold = False
End If
End Sub

Synes godt om

vejmand Juniormester

08. juni 2013 - 16:10 #2

Eller:

betinget formatering > Ny regel > brug en formel..... > =ÅR(F7)<>ÅR(IDAG()) > Vælg formatering

Synes godt om

simulu Juniormester

08. juni 2013 - 17:51 #3

Hej
Jeg har nu fået din makro til at virke, men... hvordan kan det være, at når jeg taster en ny celleværdi i f.eks. F8, så er det cellen under, der ændrer farve?
Mvh Jan

Synes godt om

jens48 Ekspert

08. juni 2013 - 21:06 #4

Det må være fordi cursoren er sat til at gå en celle ned efter du trykker Enter. Hvis du ønsker at bibeholde det kan du bruge denne makro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F7:F17")) Is Nothing Then
Selection.Offset(-1, 0).Font.ColorIndex = 0
Selection.Offset(-1, 0).Font.Bold = False
End If
End Sub

Synes godt om

jens48 Ekspert

08. juni 2013 - 21:11 #5

Men det er nok mindre problematisk at bruge denne makro. Den virker under alle omstændigheder:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F7:F17")) Is Nothing Then
Target.Font.ColorIndex = 0
Target.Font.Bold = False
End If
End Sub

Synes godt om

simulu Juniormester

09. juni 2013 - 12:55 #6

Hej Jens48
Det virker fint nu, så tak for svar.
Mvh Jan

Synes godt om

jens48 Ekspert

09. juni 2013 - 14:31 #7

Fint. Her er et svar

Synes godt om

Michael B. Bom Juniormester

10. juni 2013 - 17:17 #8

@jens 48 - hvordan får du den til at starte med projektmappen?

Synes godt om

jens48 Ekspert

10. juni 2013 - 23:59 #9

Til p5,
Makroen virker kun på det ark den er lagt ind under (højreklik på faneblad og vælg Vis Koder). Den starter automatisk, når der skrives noget i en af cellerne F7:F17

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Identificér og hent del af tekststreng Af TheLibrarian i Excel	1	I går 16:49	I går 21:00
Ændre nuller til ovenstående tekst Af boro23 i Excel	4	20/11/202410:44	20/11/202412:08
HVIS med datoer Af HHA i Excel	6	20/11/202408:31	20/11/202412:51
Numerisk liste Af AND i Excel	8	19/11/202414:05	19/11/202423:31
Ændre nuller til ovenstående tal Af boro23 i Excel	3	19/11/202409:39	19/11/202411:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS