Voorwaardelijke opmaak met datum

[boarder240]

Hallo,

Ik moet een excel analyse uitvoeren. Ik heb hiervoor bepaalde data en tijden in 1 cel gezet. Nu wil ik ervoor zorgen dat wanneer de data binnen een bepaald tijdvak vallen deze cel groen wordt. Toen ik alleen met tijden werkte was dit geen probleem, maar aangezien er ook soms meerdere dagen tussen zit moet ik met data's gaan werken. Weet iemand hoe ik dit kan oplossen?

Bekijk bijlage Voorbeeld voorwaardelijke opmaak data's.xlsx

 

[VenA]

In situatie A en B staat tekst ipv een datum en tijd. Dan valt er natuurlijk weinig te vergelijken.

situatie A handmatig aangepast situatie B dmv van formule in VO (wordt groen in kolom E)

 

[boarder240]

Bedankt, in principe was dit een hele domme fout. Alleen ben ik nog een klein dingetje vergeten.

Omdat het gebied waar de tijd tussen moet vallen variabel geformuleerd is wordt er met een formule gewerkt. Ik heb nu alle velden de zelfde opmaak gegeven, maar nu werkt de voorwaardelijke opmaak niet. Kijk ik nu weer over iets heen of is dit iets ingewikkelder?

Bekijk bijlage Voorbeeld voorwaardelijke opmaak data's V2.0.xlsx

 

[Cobbe]

Uw gegevens in kolom B en D zijn geen datum/tijden maar gewoon tekst.
Zet ze maar eens in standaardweergave.

 

[boarder240]

Het klopt inderdaad, als de opmaak aangepast is naar dd-mm-jj uu:mm:ss werkt het. Alleen in de date file waar ik daadwerkelijk in werk lukt het niet.. Wanneer ik het aan wil passen veranderd de opmaak daarna gewoon weer in "datum"

 

[Cobbe]

Zet deze in ThisWorkbook:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim cl As Range
 For Each cl In Sheets("Blad1").Range("B4:B13,D4:D14")
  cl = Format(cl.Value, "dd-mm-yy hh:mm")
 Next
End Sub

Je kan de Eventtrigger wijzigen, nu loopt het als het werkblad geactiveerd wordt.

 

[boarder240]

Veranderd de code wanneer ik het over meerdere bladen en meerdere kolommen moet toepassen?

 

[Cobbe]

Je kan de code over alle betreffende bladen laten lopen als de bereiken dezelfde zijn.
Als alle bereiken dezelfde zijn op elk blad kan je dit gebruiken bij het opeen van het bestand of in een module zetten achter een button:

Dim cl As Range
For each sh in Thisworkbook.sheets 
  For Each cl In sh.Range("B4:B13,D4:D14") 'hier moet je eventueel het bereik aanpassen
   cl = Format(cl.Value, "dd-mm-yy hh:mm")
  Next
Next

Je kan nog eventueel bladen uitsluiten van deze handeling via

If sh.name <> nietmeedoen then