Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketVBA kode
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
tingen Se dropdown
Forum Begynder
Forum Begynder


Medlem: 20.Okt.2010
Status: Offline
Point: 10 		Direkte link til dette indlæg Emne: VBA kode
    Sendt: 20.Okt.2010 kl. 15:21
Hej

Jeg skal bruge hjælp til en VBA kode, som skal kunne sammenligne en dato fra eks. celle (A1) og sammenligne med en dato i (A2).
Og hvis (A1) så er ældre, så skal cellen farves rød.

Har prøvet med Conditional formatting og    =AND(A2-TODAY()>=0,A2-TODAY()<=30)
Men det virker ikke
på forhånd tak.
- tingen
Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 20.Okt.2010 kl. 15:36

Hej tingen,

Hvis spørgsmålet er at måle om A1 er mindre end A2 og farve en celle rød hvis den er SAND, kan dette måske bruges:
 
Hvis du stadig ønsker at bruge Conditional formatting (Betinget formatering), kan dette bruges:
=A1<A2
 
Den isolerede problemstilling, kan også løses med denne stump kode:
 
If Range("A1").Value < Range("A2").Value Then
    Range("A1").Interior.ColorIndex = 3
Else
    Range("A1").Interior.ColorIndex = xlNone
End If
 
//Allan
Til top
tingen Se dropdown
Forum Begynder
Forum Begynder


Medlem: 20.Okt.2010
Status: Offline
Point: 10 		Direkte link til dette indlæg Sendt: 20.Okt.2010 kl. 15:45
Tak :) men hmm

formålet er at fra (C14) til og med (C75) står der datoer med deadlines, og hvis de så overskrider dags dato, skal feltet farves rødt.
- Kan godt lave et dato felt, hvis det er nødvendigt? :D
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 20.Okt.2010 kl. 16:03
OK, så prøver vi bare den Tongue
Tilgiv mig, at jeg bruger en Dansk version, kan ikke huske de engelske betegnelser.
 
Celler bliver med denne fremgangsmåde, farvet røde hvis datoen er mindre end dags dato. 
 
Marker C14:C75
Betinget formattering / Formater kun celler, der indeholder / celleværdi mindre end / =TODAY()
 
Eksempel findes her:uploads/1/farv_deadlines.xlsx
 
Det skulle kunne gøre det.
 
//Allan
Til top
tingen Se dropdown
Forum Begynder
Forum Begynder


Medlem: 20.Okt.2010
Status: Offline
Point: 10 		Direkte link til dette indlæg Sendt: 21.Okt.2010 kl. 08:52
Tak for det hurtige svar :P

Det virker

Mange tak Allan :D og fortsat god dag
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk