alleen hoodletters

[mattheijer]

in de bijlage vinden jullie mijn knutsel werk in excel
Dit is een excel om makkelijk allerlei roostervarianten te kunnen maken.

In de cellen B9 tot AF38, kunnen allen de letters V L N R ADV en T worden ingevuld.
in de cellen AN15 tm AN18 worden deze allemaal netjes bij elkaar opgeteld zodat je kan zien hoeveel er die dag in dienst zouden zijn.
Alleen als ik een v gebruik in plaats van een V dan telt die die niet.

Is het mogelijk dat excel die v zelf door middel van bijvoorbeeld een VBA naar een V veranderd.

ik heb al veel gezien maar kan er niet uit komen.
hoop dat jullie mij kunnen helpen.


Bekijk bijlage rooster-CTR.xlsx

 

[Ad Becude]

mattheijer,

Kijk eens of je hier mee kunt leven, de lijst uit kolom AW is hier overbodig.

 

[sylvester-ponte]

je kan ook je formule wijzigen:

=SOM(LENGTE(B9:B39)-LENGTE(SUBSTITUEREN(B9:B39;"V";"")))

wordt

=SOM(LENGTE(B9:B39)-LENGTE(SUBSTITUEREN(B9:B39;"V";"")))+SOM(LENGTE(B9:B39)-LENGTE(SUBSTITUEREN(B9:B39;"v";"")))

 

[mattheijer]

mattheijer,

Kijk eens of je hier mee kunt leven, de lijst uit kolom AW is hier overbodig.

ja helemaal TOP !

Ik had zelf na drie dagen lang zoeken deze VBA gevonden

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub

die maakt het ook mogelijk om een v in te voeren en maakt hij er een V van

ik snap alleen niet hoe u het voor elkaar hebt gekregen ?

 

[mattheijer]

je kan ook je formule wijzigen:

=SOM(LENGTE(B9:B39)-LENGTE(SUBSTITUEREN(B9:B39;"V";"")))

wordt

=SOM(LENGTE(B9:B39)-LENGTE(SUBSTITUEREN(B9:B39;"V";"")))+SOM(LENGTE(B9:B39)-LENGTE(SUBSTITUEREN(B9:B39;"v";"")))

Dat kan inderdaad ook. had ik niet aan gedacht staat wel slordig want kunnen hoofd en kleine letters door elkaar worden gebruikt.

 

[mattheijer]

ja helemaal TOP !

Ik had zelf na drie dagen lang zoeken deze VBA gevonden

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub

die maakt het ook mogelijk om een v in te voeren en maakt hij er een V van

ik snap alleen niet hoe u het voor elkaar hebt gekregen ?

Hoi Ad,

Ik heb het gevonden en wat was de oplossing simpel zeg
ik heb 2 maanden geleden een beroerte gehad en het denken etc etc gaat allemaal niet zo heel snel meer.
sorry voor mijn extra overbodige vraag

 

[Ad Becude]

ik snap alleen niet hoe u het voor elkaar hebt gekregen ?

Selecteer een cel, en kijk naar Gegevens > Gegevensvalidatie: zie ook het vinkje weg bij: Vervolgkeuzelijst in cel.

 

[Ad Becude]

Geen probleem, en overbodige vragen? die bestaan volgens mij niet.
Ik wens je een spoedig herstel toe, ik heb problemen met het hart gehad.........en ja alles gaat niet meer zoals je zou willen.