Hi
via deze link ben ik al ver gekomen
https://www.wiseowl.co.uk/blog/s394/shapes.htm

ik kan nu met ctrl +D een 3 hoek op de activecell zetten met een vaste tekst.

Maar nu is de vraag zou ik kunnen tellen hoeveel x de tekst die aan de 3 hoek vast hangt voorkomt.
Want het is de bedoeling  meerde 3hoeken te zetten met verschillende kleuren en tekst
vb in bijlage wat ik nu heb

Bedoel je dit...

Sub TekstTellen()
Dim Shp As Shape
a = 0
     
For Each Shp In Sheets("Blad1").Shapes
    If Shp.TextFrame.Characters.Text = "Test" Then a = a + 1
Next

Range("J1") = a
End Sub

lommer dat is het
Ik zou gebruik maken van een gegevensvallidatie zodat maar een beperkte aantal keuze mogelijk zijn.
en deze een macro laten starten. en kan dan natuurlijk ook direct de macro tellen laten opstarten
Dus voor elke tekst die ik wil laten tellen een nieuwe if dus.

Dacht eerst zo automatisch te laten tellen zoals onderstaande code
Maar werkt niet of is mijn bovenstaande gedachte goed

Want dit werkt niet telt enkel bij wijzigen cel

Sub Worksheet_Change(ByVal Target As Range)
Dim Shp As Shape
a = 0
     
For Each Shp In ActiveSheet.Shapes
    If Shp.TextFrame.Characters.Text = "Test" Then a = a + 1
Next

Range("J1") = a
End Sub

denk dat ik het verkeerd of niet duidelijk heb uit gelegd.
ik zou graag het volgende willen bekomen.
Dat de gebruiker per cel maar uit een aantal mogelijkheden kan kiezen
Bv verlof dag verlof vm verlof Nm
en dat er dan een bepaalde vermom met tekst komt te staan en dan dat we de gelijk kijk soortige tekst gaan koptellen.

nog al tijd het zelfde
Het gaat over een kalender
en een collega  zet er nu autovormen over in een bepaalde kleur om aan te duiden wat voor soort verlof hij genomen heeft.
een rechthoek is een volledige  verlofdag
en een rechthoekige 3 hoek die de cel in 2deelt voor een voormiddag en namiddag.
Is het bovenste deel gekleurd dan is vm en omgekeerd voor NM.

Dus ik dacht in eerste instantie maak een gegevensvalidatie.
En dan daaraan een macro koppelen die de juiste vorm zet. Maar zie dat gegevens validatie een tekst in de cel zet. Dus dat vind ik minder.

Daar ik dit weekend bij toeval op een site uitkwam waar uitleg staat over zetten van autovormen via macro en dergelijk. Zag ik daar ook dat je er een tekst kunt aan toevoegen.
Dus vond ook dat je de tekst kunt uitlezen. dus komt een bepaalde tekst x maal voor dan heeft hij zoveel dagen van een bepaalde soort genomen.
Maar nu stuit ik op een ander probleem wil om fouten te vermijden de keuze beperken naar enkel de het aantal keuzes hij heeft om zijn soort verlof te bepalen.
Vandaar die gegevensvalidatie? Maar wat dan met de tekst in de cel
En het tellen zou automatisch moeten gebeuren dus een cel aanklikken uit de lijst het verlof kiezen en het aantal tellen
hoop dat je het iets duidelijker is
Anders stel gerichte vragen.
Want wat jij doet is goed maar is neit wat ik zoek.
Moet geen list hebben enkel het aantal
weet is maar een bv
kan het niet in een vb tonen sorry

gedeeltelijk want dat van tellen wist ik onder tussen ook.
Maar hoe kan ik dan zorgen dat ze maar een beperkte keuze hebben.

Of is er een beter methode omdat te realiseren
Want bij gegevensvalidatie heb en we een keuze lijst en dan word er de gekozen keuze in de cel gezet bv verlof vm maar werkingen Dit ook op het symbool zetten. Ik wil die tekst niet 2X liefst enkel op het symbool
Of zie ik het verkeerd moet wel met beperkte invoer zijn. En indien mogelijk ook zo als er van een bepaalde code voor verlof is opgebruikt deze niet meer voorkomt in de lijst
Beter oplossing altijd welkom
Op het computersysteem waar wij ons verlof moeten ingeven doen ze het als volgt er staan 2 maanden zichtbaar de huidige en de volgende. Daarin selecteren we de dagen en dan hebben we 2 keuzelijsten 1 voor de soort verlof we willen opnemen en dan 1 voor het dagdeel
Of zouden we dit zo kunnen doen?
Maar hoe dan decreten welke cel of cellen er geselecteerd zijn
En dan dit verwerken via macro
Is een beetje brainstormen dat ik neer schrijft.

Of is er een beter oplossing

Laat het maar weten