comboboxen in 1 keer automatisch eerste letter een hoofdletter.

[markwat]

De comboboxen wil ik wanneer ik type automatisch de eerste letter een hoofdletter word.

Private Sub Workbook_Range()
Dim Co6 As Range

For Co6 = 1 To 100


       Sheets("Rapportage").OLEObjects("ComboBox" & Co6).Object.List = UCase(Left("ComboBox" & Co6, 1)) & LCase(Mid("ComboBox" & Co6, 2))
    Next Co6


End Sub

 

[JEC.]

Hiermee zou je er uit moeten komen

Sub jec()
a = "test"
Debug.Print StrConv(a, 3)
End Sub

 

[snb]

Waar heb je dit geleerd ?

Private Sub Workbook_Range()

De eigenschap .List van een combobox is een array.
Ucase of strconv toepassen op een array is onzin.

De aanwezigheid van 100 comboboxen suggereert een slecht ontwerp.
Een lusvariabele de naam Co6 geven komt in geen enkel VBA leerboek voor.

 

[markwat]

die code van mij werkt niet.
maar ik heb het staan in blad rapportage.
u schrijft bij a test maar daar moet iets anders staan?
het gaat om 100 comboboxen die allemaal het zelfde doen.

 

[JEC.]

Uiteraard, je kunt bij het inladen al zorgen dat het hoofdletters zijn dmv strconv
Wat doe je met 100 ComboBoxen trouwens?

 

[snb]

Sla eens op F1 in de vbeditor bij Ucase of strconv.

 

[JEC.]

Ik weet dat je geen arrays kunt bewerken met deze functies.
Wat ik bedoel is dat als er een keuze wordt gemaakt in die combobox, je gelijk omzet naar een hoofdletter.

Private Sub ComboBox1_Change()
ComboBox1 = StrConv(ComboBox1, 3)
End Sub

 

[markwat]

het gaat er wel vriendelijk aan toe.
als ik het allemaal had geweten had ik hier ABSOLUUT niet gekomen.
JEC bedankt voor je hulp:love:, ik laat het bij het oude. had het allemaal iets overzichtelijker willen maken maar 100 boxen is over 10 onderwerpen zo kan ik altijd even omhoog scrollen om te kijken wat bij het andere onderwerp staat. om geen dubbel teksten te schrijven.


'ik ben God niet anders had ik het beter geweten dan snb"

 

[snb]

Je toelichting maakt niet duidelijk wat het voordeel is van een hoofdletter ten opzichte van een kleine letter.

 

[markwat]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Co1 As Range
For Co1 = 1 To 100
Sheets("Rapportage").OLEObjects("ComboBox" & Co1).Object.List = UCase(Left(ComboBox & Co1.Text, 1)) & LCase(Mid(ComboBox & Co1.Text, 2))
    Next Co1
End Sub