Datum en tijd opmaak

[Martaizoku]

Goedemiddag,

Ik heb binnenkort een toets op school waarmee we een Excel bestand moeten maken. Je mag alles zelf opmaken en er zelf dingen bij verzinnen. Het gaat over schoolcijfers. Nou bedacht ik me dat het leuk zou zijn dat als ik na een bepaalde datum een nieuw cijfer invoer in bijvoorbeeld tabblad 3, dat er dan op tabblad 1 komt te staan Er zijn een of meerdere nieuwe resultaten.

Ik heb al voorwaardelijke opmaak geprobeerd, en ik heb al veel dingen over =VANDAAG() etc opgezocht maar ik ben er niet uitgekomen. Kan iemand mij helpen?
(Ik heb het bovenste bericht op de excel-vragen pagina gelezen, dus zeg ik er even bij dat dit meer voor mezelf is dan voor school omdat het niet verplicht is :thumb

Alvast bedankt,

Groetjes Martaizoku

 

[Warme bakkertje]

Plaats eens een voorbeeldbestandje met wat je tot hiertoe zelf hebt bijeengesprokkeld.

 

[Martaizoku]

Bekijk bijlage Map1.xlsx Hier is als het goed is een voorbeeldbestandtje met een aantal getallen. Waar ik aan zat te denken, is dat als ik in tablad2,G13 een nieuw cijfer invul, dat er dan in tablad1,D8 een tekst komt te staan als er zijn één of meerdere nieuwe resultaten. Zou dit kunnen? En hoe?

mvg, Martaizoku

 

[Martaizoku]

http://www.mediafire.com/?yu37et97devj1xe (het bestand is groter dan 100kb en als ik het inpak met winrar blijft het even veel kb?)

Hier is de link van het 'echte' bestand, dit bestand het ik zelf gemaakt en opgemaakt en ik ben er best tevreden mee. Maar wat ik vertel in mijn eerste post zou ik echt gaaf vinden om erin te hebben, dus het zou super zijn als iemand wist hoe dit moet, en of het überhaupt mogelijk is.

mvg

 

[Warme bakkertje]

Zet onderstaande in de bladmodule v/h werkblad waarin je de wijzigingen doorvoerd.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 7 And Target.Value <> "" Then
        Sheets("Blad1").Range("D8") = " Er zijn één of meerdere nieuwe resultaten ingevoerd"
    End If
End Sub

 

[Martaizoku]

Super bedankt! ik heb van If Target.Column = 7 If Target.Column >= 0 gemaakt zodat hij op elk hokje nu werkt. Precies wat ik wilde, top!
mvg