Format op basis van waarde in eerste cel van elke kolom

[stefano]

Ik ben op zoek naar een code die enkel taken vereenvoudigt. Ik beschik over meerdere excel bestanden waarin gegevens niet correct worden weergegeven, zie een voorbeeldje hieronder.

Punt ontstaan
02.01.2017
02.01.2017
02.01.2017
02.01.2017
02.01.2017

Wat ik graag zou hebben is dat de code de kolom instelt op format 'datum' wanneer de inhoud van de eerste cel = 'Punt ontstaan'.

Hetzelfde ook graag voor onderstaand voorbeeld:

Fys.st.pr.
200046541,000
800070825,000
200046542,000
200046543,000
200046544,000

Hier graag instellen als format 'getal' zonder decimalen na de komma wanneer de eerste cel in de kolom tekst 'Fys.st.pr.' bevat.Bekijk bijlage format.xlsx

Het originele bestand zend ik mee in bijlage.

 

[snb]

gebruik een 'intelligente' tabel (in VBA listobject)

 

[stefano]

slik