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
Excel åbner fil i kæmpe format Af Aske i Excel	8	I dag 06:10	I dag 11:56
Summere beløb pr. dato Af TTA i Excel	2	I går 12:37	I går 15:30
Betinget formattering af flere celler vandret og lodret. Af Sussie i Excel	10	30/10/202408:41	30/10/202417:18
Ombrydning af tekst i en celle efter et tegn Af FinnLauridsen i Excel	8	29/10/202411:50	29/10/202414:18
Tidsintervaller i Excel Af Karsten KTL i Excel	3	29/10/202411:47	30/10/202414:20

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

01/11

Test af Apple Watch Series 10: Apples jubilæums-model er blevet lidt af en mester af det hele

01/11

Google Clouds netop fratrådte topchef har fundet sit nye job: Bliver en af de mest magtfulde personer hos ServiceNow

01/11

Nu går OpenAI efter struben på Google: ChatGPT fungerer nu også som en AI-søgemaskine

01/11

Nørgaard: Agenterne kommer, og jeg er klar: Måske bliver min gamle drøm snart virkelighed

01/11

Staten vil selv udvikle kæmpe it-system til 650 millioner kroner: Nu tvinges regeringen til at lægge vigtige dokumenter frem

01/11

Det går fantastisk på det danske Dynamics-marked: NNIT-selskabet Scales kan vælge og vrage mellem opgaver

01/11

Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre

01/11

Skelsættende GDPR-sag ændrer definitionen af 'følsomme oplysninger'

01/11

Google indlemmer sin AI Gemini i Google Maps, Google Earth og Waze: Det kommer det til at betyde

01/11

Microsoft: Tvungen skift til Windows 11 kan udskydes med et år, hvis du betaler os 200 kroner

01/11

Sådan blev Margrethe Vestager ’Silicon Valleys største fjende’

Vis flere artikler

IT-JOB

KMD A/S

Senior Software Application Architect

Danske Spil A/S

Senior IT-projektleder

KMD A/S

Senior Java Developer

Statens IT

Skab innovation i det offentlige – bliv en nøgleperson i Statens Its Software Defined Data Center

MAN Energy Solutions

Department Manager Edge Platform

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 06:10	Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00	Datafordeler Af Lsk i PHP
I går 12:37	Summere beløb pr. dato Af TTA i Excel
31/1022:44	Tilslutte chassic fans Af viking69 i PC
31/1020:28	LED lysstofrør Af ErikHg i Fri debat