waarde toekennen aan cel in Vet

[edootje]

Hallo,

Weet iemand welke formule ik hier kan toepassen.

Als in cel A1 de tekst of cijfer in VET(Bold)wordt weergegeven, dan moet in cel B1 waarde 1 verschijnen,anders waarde 0

Bedankt voor de hulp.

 

[Jan van Asseldonk]

Je kunt de opmaak voor vet niet opvragen met een gewone functie (Excel97). Vanuit een macro kan het wel.
Eventueel kun je zelf een functie maken waarmee het wel kan maar die is ergens anders dan niet beschikbaar.

Misschien kan het in nieuwere versies wel. Je zou dan eens moeten kijken bij de mogelijkheden van =CEL("infotype").

Met een macro zou het als volgt kunnen:
Sub VetControle
If activecell.offset(0,-1).font.bold =true then
activecell.value = 1
else
activecell.value = 0
end if
end sub

Koppel deze macro aan een toetscombinatie en je kunt deze meteen uitvoeren vanuit de cel waar je staat.