lommer dat is het
Ik zou gebruik maken van een gegevensvallidatie zodat maar een beperkte aantal keuze mogelijk zijn.
ik zal dus voor iedere tekst een nieuwe lijn moeten toevoegen
En hoe zorgen dat deze astmatisch word berekend bij het zetten van een nieuwe shape
zal dit moeten zetten onder het werlblad zelf zeker
Maar dan telt hij pas als er een cel wijzigt
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